Select Code to Download

#! perl -slw
use strict;
...

print OUTPUT "$fits[$_] : @{[ values %{$AoH[$_]} ]}\n" for @sorted;

__DATA__
...
delta foxtrot echo bravo alpha charlie hotel golf indigo
golf alpha bravo foxtrot charlie echo delta hotel indigo
hotel golf delta alpha echo bravo foxtrot indigo charlie

__OUTPUT__
78 : indigo charlie foxtrot delta golf hotel echo alpha bravo
...
46 : alpha golf echo indigo hotel delta bravo foxtrot charlie

__END__