#!/usr/bin/perl
use strict;
use warnings;

my@array = qw(one two three four five six seven eight nine ten);
print "The original array contains - @array \n";
my@sorted = sort {$a <=> $b} @array;

print "The sorted array contains @sorted \n";