get_conf(%cur_conf); #### sub mypush (\@@) { my $aref = shift; push @$aref, @_; } @a = (1); mypush @a, 2, 3, 4; print "@a\n";