my @good = grep { $_->{'result'} != 0 } @list;
my @bad = grep { $_->{'result'} == 0 } @list;