Select Code to Download

#!/usr/local/bin/perl
use strict;
...
use Data::Dumper;
print "\n\UViewing the Data Structure through Data::Dumper:\E\n";
print Dumper(\%people);