use strict;
use warnings;
sub blubb
{
        my $array_ref = shift;
        my $i =0;
        
        foreach (@$array_ref) #dereferences the ref to an array
        {
           print $i++, "  $_\n";
        }
        
}
my @array = (1, 2, 3);
blubb([reverse @array]);

__END__
Prints:
0  3
1  2
2  1