my %csahash;

my $line=<>;

while($line=<>){

if($line=~ /\b(\d\w{3})\b/){

$csahash{$1}++;

}


}