Select Code to Download

#!/usr/bin/perl 
use strict;
...
foreach my $word (sort keys %words) {
    printf "%s %s\n", $word, join(' ', @{ $words{$word} });
}

% perl fmt.pl output.dump
AIG 154 160 161 135
GID 18 27 18 17
TEA 235 224 224 214

$VAR1 = {
'3' => {
...
'TEA' => 235,
}
};