Select Code to Download

multi_push(
  \(@names, @ages, \@locs) =>
  [split /::/, $record]
);

sub multi_push{
  my @v = @{ pop @_ };
  my @fs = @_;
...
    push @{ $f }, +shift @v;
  }
}

sub multi_push {
  my @v = @{ pop @_ };
...
    push @{ +shift }, +shift @v;
  }
}