@numbers = ( 100, 200, 300, 400, 500 );

{
  no warnings 'deprecated';
  local $[ = 1;             # Don't do this... example only.

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

print "$_\n" for @reversed;