my %h;
push @{$h{$_->[1]||0}}, $_->[0] for @a;