Select Code to Download

use strict;
use warnings;
...
} keys %celebs;

print Data::Dumper->Dump( [\@people],[qw(*people)] );

@people = (
            {
...
              'address' => '123 peach st.'
            }
          );