Whenever you have a variable named after what you plan on putting in it, that's a problem. You want the variable to describe what it holds, not -be- what it holds. You want a hash.
my %teams = map { lc } map { split /:\s+/ } map { chomp; $_ } <DATA>;
That's probably one of the more "Perlish" ways of writing that. Your datafile's format sucks, which is your problem. Pretty code and sucky input generally don't mix. "A" input gets to play with "A" code. "C" input plays with "C" code. All the special cases.
My criteria for good software:
- Does it work?
- Can someone else come in, make a change, and be reasonably certain no bugs were introduced?
