if ( defined $msg -> {$key} ) { 
    print "$key: ", $msg -> $key, "\n";
}