my $push = sub { my $aref = shift; push @$aref, @_ };