use Data::Dumper qw/Dumper/;
print '$ref = ', Dumper($ref), "\n";