@x=(a..z); @y=(0..9); &func(\@x, \@y); sub func() { my ($mx, $my) = @_; $z = $_[1]; print "@{$_[0]}\n"; # works print "@$_[1]\n"; # Does Not work, why ? print "@$z\n"; # works print "@$mx\n"; # works }