if ($line =~ /^(\d{1,6})\t(\d{3})/){
 
 my $count = $1;
 my $SPSS_figures = $2; 
}