#!/usr/bin/perl -w
use strict;
my @array = (-15,991, -9, 980, 1, 911, 281, 1299, 870, 1205, 1, 1);

my @new_array = sort { $a <=> $b } @array;

print "@new_array";
[download]

grep> cd pub
grep> more beer
[download]