Select Code to Download

use Data::Dumper;
print Dumper(\%PhoneBook);

$VAR1 = {
          ' 9000' => 'Dick
...
          ' 8594' => 'Tom
'
        };