my %statuscount;
foreach my $stat (@status) {
  $statuscount{$status}++;
}