foreach $n (sort keys %friends) { $sucker=$friends{$n}; if ($sucker->{FIRSTNAME}=~/^j.*/) {$d++;} ect...