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