Help for this page
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"; };