foreach my $key (sort {$a cmp $b} keys %$hash) {
 if (scalar %{$$hash{$key}} > 2) {
  #do something
 }
 else {
  #do something else
 }
}