Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @new_array = sort { $a <=> $b } @array;

print "@new_array";

grep> cd pub
grep> more beer