Select Code to Download

use strict;
use warnings 'all';
...
local $\ = "\n";
print @$_ for sort { $a->[0] cmp $b->[0] } @contact_records;
}

use strict;
use warnings 'all';
...
                ]
            } <>;
}

sub snip_or_toss { $_[CONTACTME] ? @_[ SKUTITLE, EMAIL ] : () }