Why not just use one hash, the key is the function name and the argument is an array consisting of search regex and replacement. Something like the following:

use constant SEARCH => 0;
use constant REPLACE => 1;

my %translate = (
  funca => [ qr/funca\( ([^,]+) , ([^,]+) ,([^,]+) ,([^)]+) \)/x,
             '"func($1,$2,XXX,YYY,$4)"' ],
  funcb => [ qr/funcb\( ([^,]+) , ([^,]+) ,([^,]+) ,([^)]+) \)/x,
             '"func($1,$2,,,$4)"' ],
);

while (<DATA>) {
    for my $key (keys %translate) {
        if (/$key/) {
            s/$translate{$key}->[SEARCH]/$translate{$key}->[REPLACE]/e
+e;
            print;
        }
    }
}

__DATA__
funca(10,20,30,40)
funcb(10,20,30,40)
[download]

Of course you might have to adjust the regexes a bit, taking care of whitespace, ... but I think you get the idea.

-- Hofmator