Help for this page
#!/usr/bin/perl -wl use strict; ... } print "$_: $data{$_}" for sort keys %data;
boy boy girl boy girl man girl girl: 3323 boy boy girl man girl boy girl girl: 4310 boy man girl boy girl boy girl girl: 1881 man boy girl boy girl boy girl girl: 486