Store subrefs in a hash instead.

my %parsers = (
    address => sub {
        # ...
    },
    f_dcompany => sub {
        # ...
    },
    xmlbzzwrd => sub {
        # ...
    },
);
[download]

Then you can call these like chromatic pointed out: $parser{$whatever}->(@pass, $some, @params);

Makeshifts last the longest.