messing around with passing a perl array by reference

arrayByRef.pl

@arr = qw(1 2 3 4 5 6 7 8 9 10);

use Data::Dumper;
#print Dumper(@arr);

printme(1,2,\@arr,4);





sub printme
{
        $varone = $_[0];
        $vartwo = $_[1];
        @varthree = @{$_[2]};
        $varfour = $_[3];


        print "$varone\n";
        print "$vartwo\n";
        print "dumper: ".Dumper($_[3])."\n";

        print "foreach: ";
        foreach $item (@varthree)
        {
#               print "line\n";
                print "item $item\n"
        }

        print "\n$varfour\n";
}