my %dict = do { 
  open my $dict_fh, "<", $path or die "Couldn't open $path: $!";
  map { chomp; split ' ', $_, 2 } <$dict_fh>;
};
# $dict_fh doesn't exist here, so it is closed