map { push @{$res{$_->[2]}}, $_ } @arr;