Select Code to Download

# poorly implementing VBScript's 'trim' function:

...
    $_[0] =~ s/^\s*//;
    $_[0] =~ s/\s*$//;
}

my @array = qw/ 1 2 3 4 5 /;
my @new_array = sort { $a++ <=> $b-- } @array;