use strict; use Data::Dumper; my %hash1; # fill %hash1 here print Dumper \%hash1;