#!/usr/bin/perl


use strict;
use warnings;
use diagnostics;

open (IMEI, 'IMEI.txt');
open (TAC, 'tac.txt');
 my %mapToModel;
 my %keyCount;
 my $key;
 my $model;
 my $subs;
 my $keyCount;
 my $mapToModel;
 my $count;
 my %dictionary;

while (<TAC>){
         $key = substr $_,0,8;
         $model = substr $_,9;
         $keyCount{$key} = 0;
         $mapToModel{$key} = $model;
}


close (TAC);

while (<IMEI>){
          $subs = substr $_, 0, 8;
        if(exists $keyCount{$subs}){
                $keyCount{$subs} = $keyCount{$subs} +1;
        }
}
close (IMEI);
foreach my $key (keys %keyCount){
        if (exists $mapToModel{$key}){


                $model = $mapToModel{$key};
                $count = $keyCount{$key};

                foreach my$model (keys )


                if( $count !=0){

                 print "$count\t$model";

         }
        }






}