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