>>404
my @new = sort{ $a->{b} <=> $b->{b} } @array;

>>406
print (OUT @nakami);