foreach my $sorted(@sorted){
	$scorehash{$sorted} = undef;
	}
	print Dumper(%scorehash);
	my @ranks2 = sort { $b <=> $a } keys %scorehash;
	print Dumper(\@ranks2);
	print $ranks2[0];