my %data
foreach my $key (sort keys %data) {
print "Key - $key  and b value - $data{$key}}