use Data::Dumper;
print Dumper(\%shipto);
print Dumper($ref);