#### Old sort (that doesnt work properly ) with first 10 records extracted


foreach my $k (keys %IND) {
	
		@indsort=(sort { $a <=> $b } @{$tmp});
  		foreach $line(@indsort[0..9]){
  		print "$line\n";
		}
}