in reply to map a hash with a default value or exclude
Nothing prevents you from inserting code as complex as you need into the map:
... = map { chomp; my ($right,$left)= split'='; if ($left) { ($right,$ +left) } else { () } } <$fh>; [download]