my %data;

foreach my $key (sort keys %data) {
  foreach my $elem (keys %{$hash{$key} {
    print"$key : $hash{$key}->{$val}";
}
}