Select Code to Download

my ($acct,%records);
foreach $entry ($mesg->entries) {
...
foreach $acct (sort keys %records) {
    print $acct,": ",join(' ',@{$records{$acct}}),"\n";
}