while ( my ( $name, $code ) = each %hash ) {
    no strict 'refs';
    *$name = $code;
}