fork download
  1. #!/usr/bin/perl
  2. @number=('1','2','3','4','5');
  3. print "The original array is @number\n";
  4. print "The modified array is ";
  5. foreach $number (@number)
  6. {
  7. $n=$number+5;
  8. print "$n ";
  9. }
Success #stdin #stdout 0.01s 5304KB
stdin
Standard input is empty
stdout
The original array is 1 2 3 4 5
The modified array is 6 7 8 9 10