Select Code to Download

my %construct;
push @{ $construct{$_->[1]} }, $_->[2]
    for (@records);

while (my ($k,$v) = each %construct) {
    print "$k has values: " . join(',', @$v) . "\n";
}