... = map { chomp; my ($right,$left)= split'='; if ($left) { ($right,$left) } else { () } } <$fh>;