怎么样通过字符串函数名字，执行相应的函数，并传递参数

sub test1{
print "@_";
print "test1";
}

sub test2{
print "@_";
print "test2";

}


$para1="test";
$pate2=100;

$func="test1";
$func="test2";

如何用统一的方式实现下面的函数调用
　　test1 $para1
      test1 $para1,$para2
      test2 $para2
      test2 $para1,$para2;

my $s1 = "$func1";
my $s2 = "$func1('$para1')";
my $s3 = "$func1('$para1',$pate2)";

eval($s1);
eval($s2);
eval($s3);

写个函数用来组字符串