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

##</code><code>##

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

##</code><code>##

sub multi_push {
  my @v = @{ pop @_ };
  while(@_) {
    push @{ +shift }, +shift @v;
  }
}