@devLst = (undef, 2001, 1791, 32000, 1791, 32000, 1791, 32000 );;

print "dev$_" for sort{ $devLst[ $a ] <=> $devLst[ $b ] } 1 .. $#devLst;
dev2
dev4
dev6
dev1
dev3
dev5
dev7