hash problem and sorting

[naqvia]

How would one sort based on the number of hash values of the keys in decreasing order. For example I have:
while (<puni>){
chomp;
my ($c_name,$locus,$size,$acc) = split;
$c_name =~s/\s+//;
$locus=~s/\s+//;
push @{$clones{$c_name}},"<font color=\"blue\">pUNI\($size\,$acc\)</font>";
$acc{$c_name} = $locus;

}


I want those keys in %clones that have multiple value elements to be printed out first and those keys that just have one value element printed lasted.

[KevinADC]

sort the hash keys by the length of the arrays.

foreach my $keys (sort { scalar @{$clones{$b}} <=> scalar @{$clones{$a}} } keys %clones) {
print @{$clones{$keys}},"\n";
}

[naqvia]

Now this is a bit more complicated. I make my hashes like this:

## retreive info from the files (gene,clone_name,locus,size,and accession num)
while (<puni>){
chomp;
my ($c_name,$locus,$size,$acc) = split;
$c_name =~s/\s+//;
$locus=~s/\s+//;
push @{$clones{$c_name}},"<font color=\"blue\">pUNI\($size\,$acc\)</font>";
$acc{$c_name} = $locus;

}
while (<sfi>){
chomp;
my ($c_name,$locus,$size,$acc) = split;
$c_name =~s/\s+//;
$locus=~s/\s+//;

my $c_name2 = "G".$c_name;

push @{$clones{$c_name}},"<font color=\"red\">pENTRsfi\($c_name2\,$acc\)</font>";

$acc{$c_name} = $locus;
# $siz

}

while (<topo>){
chomp;
my ($c_name,$locus,$size,$acc) = split;
$c_name =~s/\s+//;
$locus=~s/\s+//;

push @{$clones{$c_name}},"<font color=\"green\">pENTRtopo\($size\,$acc\)</font>";
$acc{$c_name} = $locus;

}


}

Now I want them sorted based on elements (like above), but I want to print those with pUNI and pENTRsfi first... before the others.

[KevinADC]

Instead of push(), use unshift() for elements that you want to prepend to an array:

unshift @{$clones{$c_name}},"<font color=\"blue\">pUNI\($size\,$acc\)</font>";

[naqvia]

doesnt work

[KevinADC]

what else have you tried?