use Data::Dumper;

print Dumper( \%random_name );