Select Code to Download

$VAR1 = '4';
$VAR2 = {
...
          '10' => '170',
          '54' => '1'
        };

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