foreach my $key (keys (%hasha))
   {
   if (my @temp = grep( /$key/, @prevarray ) )
      {
      push(@{$hasha{$key}},$value);
      next;
      }
   else
      {
      push (@{$hashb{$key}},$value);
      next;
      }
   }