$size_array = scalar @car;
for($k=0; $k<$size_array; $k++)
{
     foreach $car(@car)
     {
           if ($make[$k] =~ /$car/)
           {
           push (@shop, $make[$k]);
           print cftr2dmatch2 "@shop";
           next;
           }
           else
           {
           next;
           }
     }
}