One way is a dispatch table:

sub quz { ... }
my %dtbl = (
  foo => sub { ... },
  bar => sub { ... },
  quz => \&quz,
  # etc.
);
my $sub_routine = "quz";
$dtbl{$sub_routine}->($value1,$value2);
[download]

By the way, your input file looks like something you might want to read via Text::CSV.