sub some_sub {
    print "(@_)\n";
}

my $orig= \&some_sub;
*some_sub= sub {
    $orig->( 'newArg', @_ );
};

some_sub( "test", "ing" );