Select Code to Download

              if ($subkey == 1) {
            $acc = $messagebin{$file}{$subkey};
...
         } else { # you should _always_ have an else branch
           warn "Unhandled subkey value $subkey.";
         };

my $acc;
my %handler = (
...
} else {
  warn "Unhandled subkey value $subkey";
};