or download this
- #!/usr/bin/env perl -l for new lines
- Using my ($name, $code, $count) = split /\Q$sep/;
...
Instead of looping through the hash
- Using for instead of foreach
- print join $sep => $name, map { $data{$name}{$_} || '' } @codes; Thi
+s is exactly what I was looking for. Idiomatic and very readable.