use strict;
my $SubroutName='test';
my $text='abcdefgijkl';
&$SubroutName($text);

sub test{
	print "\nokey!";
}
sub test1{
	print "\nokey!";
}
sub test2{
	print "\nokey!";
}