for my $file (sort keys %messagebin) {
      #enter into key
      $messagebin{$file}  then 
        foreach my $key in the above print out $key = $value
    }