foreach $organism (sort {$number{$a} <=> $number{$b}} keys %organisms){
	print "$organism:\t$number{$organism}\t$organisms{$organism}\t$med{$organism}\n" ;
}