Select Code to Download

my @theList = ( 205, 4, 100, 1, 2, 2000, 6, 93, 2, 65 );
my @theSortedList = sort { $a <=> $b } @theList;
print join( ',', @theSortedList ), "\n";