note Utilitarian The sort function takes an optional customised sort routine wherin you compare aspects of $a and $b. perldoc -f sort. <c> my %HoH = ( SUB1 => { Test1 => { value1 => "2300", value2 => "0.01", }, Test2 => { value1 => "5000", value1 => "0.34", }, }, SUB2 => { Test1 => { value1 => "2800", value2 => "0.05", }, }, ); for my $sub_key (sort {$HoH{$a}{Test1}{value1} <=> $HoH{$b}{Test1}{value1} }keys %HoH){ print "$HoH{$sub_key}{Test1}{value1}\n"; } </c> <b>EDIT:</b> <i>Corrected inline sort routine, original post made pre-coffee and shower :)</i> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-681898"> <c>print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."</c> </div></div> 970560 970560