Re: subroutine ref while "strict refs"

[Anonymous Monk]

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);

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