Help for this page
my @resArr = sort{ $devLst{ $a } <=> $devLst{ $b } } sort keys %devLst;;
@devLst = (undef, 2001, 1791, 32000, 1791, 32000, 1791, 32000 );; ... dev3 dev5 dev7