Select Code to Download

use strict;
use warnings;
...
   <$csvFH>;

print Data::Dumper->Dumpxs( [ \ %people ], [ qw{ *people } ] );