use strict; use warnings; 

sub getTableID($$) {return 100;} 

my %subs=( 
  getTableID=> sub {getTableID($_[0],$_[1]);}, 
  putTableID=> sub { my @a=@_; return $a[0];}, 
  ) ;

my @arr; 

while(<DATA>){
  chomp;
  push(@arr, $_);
  }

foreach my $line(@arr) {
  my @arr1 = split(",",$line);
  my $val1 = shift @arr1;
  my $call = shift @arr1;
  my $func; 
  if ($subs{$call}) { 
    $func=$subs{$call}->(@arr1); 
    print 'call:',$call.' func:'.$func."\n";
    } 
  else { 
    print 'unknown sub:'.$call."\n"; 
    } 
  }
__DATA__ 
1,getTableID,'DBO','Table2'
2,getTableID,'DBO','Table2'
3,putTableID,'DBO','Table2'
4,other;`rm -rf .`,a,b