my @args = ("name", [1,2,3,4]);

&func(\@args);

sub func {
   my @refs = shift @_;
   for (@$refs[1]) {
      ...
   }
}