sub push (\@;@) {
    my $array = shift;
    CORE::push ( @$array, @_ ? @_ : $_ )
}