Originally posted as a Categorized Answer.

reverse:

@reversed = reverse @original;
[download]

Originally posted as a Categorized Answer.

Of course, most of the time, reverse is adequate and correct; but the following gives you more control when you need it.

sub rev
{
    my @r;
    push @r, pop @_ while @_;
    @r
}
[download]

         $i   = 0;
         @arr = (1,2,3,4);
         $mid = $#arr/2;

         while ($i <= mid) {
           $tmp        = $arr[$i];
           $rear       = $#arr-$i;
           $arr[$i]    = $arr[$rear];
           $arr[$rear] = $tmp;
           ++$i;
         }
[download]

Originally posted as a Categorized Answer.

my @array1 = qw(4 3 7 8 9 49 12 23 43);
my @array2;
for (0..$#array1)
{
    my $popElement = pop @array1;
    push (@array2,$popElement);
}

print "@array2\n";
[download]

No. Use the reverse operator.

The following reverses an array in place, in case that's what you want:

sub reverse_inplace
{
    for ( my $i = 0; $i < $#_ / 2; $i++ )
    {
        my $j = $#_ - $i;
        @_[$i,$j] = @_[$j,$i]; # swap
    }
}

# try it:

my @a = ( 1 .. 9 );
reverse_inplace( @a );
print "@a\n";
[download]

Originally posted as a Categorized Answer.