Help for this page

Select Code to Download


  1. or download this
    @numbers = ( 100, 200, 300, 400, 500 );

$reversed[$_-1] = $numbers[-$_] for 1 .. @numbers;

print "$_\n" for @reversed;
  2. or download this
    @numbers = ( 100, 200, 300, 400, 500 );

...
}

print "$_\n" for @reversed;