for my $file (sort keys %messagebin) {
    print "File $file:\n";
    # $messagebin{$file} is a hashref, so:
    my @subkeys = sort keys %{$messagebin{$file}};
        foreach my $subkey (@subkeys) {
           print "\t$subkey = $messagebin{$file}{$subkey}\n";
        }
}