my %teams = map { lc } map { split /:\s+/ } map { chomp; $_ } ;