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

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

print "$_\n" for @reversed;