###Data Transfer###
$focus_count = 0; $random_25_count = 0; $random_50_count = 0; $cat_test_count= 0;
my %newhash=map{$_=>1} @data_trasfer_list;
my @data_transfer_count=grep ($newhash{ (m/(\w+)/)[0] }, @newlist);
my %newhash=map{$_=>1} @data_transfer_rt_25;
my @data_tranfer_rt_25_count=grep ($newhash{ (m/(\w+)/)[0] }, @newlist);
$random_50_count = $#mpg_rt_50_count + 1;
$random_25_count = $#data_transfer_rt_25_count + 1;
$focus_total += $focus_count;
$random_25_total += $random_25_count;
$random_50_total += $random_50_count;
$cat_test_count = $focus_count + $random_25_count * 25 + $random_50_count *50;

$key = "DATA_TRANSFER";
$~ = "LIST"; write;

###DEVSLP###
$focus_count = 0; $random_25_count = 0; $random_50_count = 0; $cat_test_count= 0;
my %newhash=map{$_=>1} @devslp_list;
my @devslp_count=grep ($newhash{ (m/(\w+)/)[0] }, @newlist);
$focus_count = $#devslp_count + 1;
my %newhash=map{$_=>1} @devslp_rt_25;
my @devslp_rt_25count=grep ($newhash{ (m/(\w+)/)[0] }, @newlist);
$random_25_count = $#devslp_rt_25_count + 1;
my %newhash=map{$_=>1} @devslp_rt_50;
my @devslp_rt_50_count=grep $newhash{ (m/(\w+)/)[0] }, @newlist;
$random_50_count = $#devslp_rt_50_count + 1;
$focus_total += $focus_count;
$random_25_total += $random_25_count;
$random_50_total += $random_50_count;
$cat_test_count = $focus_count + $random_25_count * 25 + $random_50_count *50;

$key= "DEVSLP";
$~ = "LIST"; write;

###MPG###
$focus_count = 0; $random_25_count = 0; $random_50_count = 0; $cat_test_count= 0;
my %newhash=map{$_=>1} @mpg_list;
my @mpg_count=grep ($newhash{ (m/(\w+)/)[0] }, @newlist);
my %newhash=map{$_=>1} @mpg_rt_50;
my @mpg_rt_50_count=grep ($newhash{ (m/(\w+)/)[0] }, @newlist);
$random_50_count = $#mpg_rt_50_count + 1;
$focus_count = $#mpg_count + 1;
$focus_total += $focus_count;
$random_25_total += $random_25_count;
$random_50_total += $random_50_count;
$cat_test_count = $focus_count + $random_25_count * 25 + $random_50_count *50;

$key= "MPG";
$~ = "LIST"; write;