my @data_tranfer_rt_25_count=grep ($newhash{ (m/(\w+)/)[0] }, @newlist);
...
$random_25_count = $#data_transfer_rt_25_count + 1;