my %funcs = (
    ciao => \&print_ciao,
    hi => \&print_hi,
);

my $string = 'ciao';

if( exists $funcs{$string} ){
    $funcs{$string}->();
}
else{
    print_default();
}

# hier die Subs...