$count = count(@fra), "\t";