my $result = do{ 
    no strict 'refs'; 
    *{ 'update_' . $n }->() 
};;
hi