#!  perl -sw
use strict;

sub printArrays {
    my ($arrayRef1, $arrayRef2) = @_;
    for my $element ( @{$arrayRef1} ) {
        print 'Array1 element: ', $element, "\n";
    }

    for my $element ( @$arrayRef2 ) {
        print 'Array2 element: ', $element, "\n";
    }
    #another way showing a few more things.
    for ( my $i=0; $i <= $#{$arrayRef1}; $i++ ) {
        print "Array1[$i] = ", $$arrayRef1[$i], "\n";
    }
}

my @ary1 = (1, 2, 3, 4, 5);
my @ary2 = ('a', 'b', 'c', 'd', 'e');
printArrays( \@ary1, \@ary2 );