Select Code to Download

@a = (8,5,2,4,88,1,5,4,3,2);
@a = sort @a; #same as @a = sort{$a <=> $b}@a;
              #because only digits not alpha/digits
print "@a","\n";
#prints: 1 2 2 3 4 4 5 5 8 88