Select Code to Download

my $base = 'foo_';
my $obj = new obj;
...
  my $meth = "${base}_$_";
  $obj->$meth;
}