my @list=('test', 'Hello!');

my $func_name=shift @list;

&$func_name(@list);

sub test {
print @_;
}