my %items;
while (<>)
{
   if (/my(searcheditem)pattern/)
   {
          $items{$1}++;
   }
}
foreach my $item (keys %items)
{
  do_what_do_you_want $items{$item};
}