Select Code to Download

use strict;
use warnings;
...
B, textt,        col3, col4,
A, text,         col3, col4,
B, texttex,      col3, col4,

# ...
while (<DATA>) {
...
}
say "$_ $results{$_}{str}" for sort keys %results;
#...