sub apush($@) {
    my $a = shift;

    push @$a, @_;
}