use strict;
use warnings;
my @foo = @ARGV; # get the array we're reversing
# reverse it:
my @tempfoo;
while (scalar (@foo)) {
  my $element = pop (@foo);
  push @tempfoo, $element;
}
@foo = @tempfoo;
# foo has been reversed...