print "File\t\tRate\n";

foreach (@final_list[0 .. $n-1] ) {
	print $_->[0], "\t\t", $_->[1], "\n";
}