for (my $i = 0; $i <= $#scores; $i++) {
	print @scores[$i]; print "\n";
	
}