# poorly implementing VBScript's 'trim' function:

trim( $somevar );

sub somevar {
    $_[0] =~ s/^\s*//;
    $_[0] =~ s/\s*$//;
}

##</code><code>##

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