use strict;
use warnings;
sub blubb($)
{
        my $array_ref = shift;
        for(my $i = 0; $i <= $#$array_ref; ++$i)
        {
                print "$i $array_ref->[$i]\n";
        }
}
my @array = (1, 2, 3);
blubb(\@array);