chomp(my $name = <STDIN>);
$name =~ /^$_/ and print ($phnums{$_}.chr 10) for keys %phnums