Select Code to Download

use strict;
use warnings;
...
$mary->{location} = 'town';
use Data::Dumper;
print Dumper $mary, $lamb;