Help for this page
#!/usr/bin/env perl -l ... for my $name (sort keys %data) { print join $sep => $name, map { $data{$name}{$_} || '' } @codes; }