sub rev { @_[0 .. $#_] = reverse @_ } my @test = qw( a b c d ); print "@test\n"; rev @test; print "@test\n";