foreach my $origName (qw(foo bar baz)) {
    my $newName = "modified_$origName";
    sub $newName {
        print "modified $newName(" . join(',', @_) . ")\n";
    }
    *$origName = *$newName;
}