use Data::Dumper;
print Dumper($ref1), "\n";
print Dumper($ref2), "\n";
print Dumper($ref3), "\n";