Number comparison by sort() function

num_sort.plx

#!/usr/bin/perl
#num_sort.plx
use warnings;
use strict;

my @unsorted = (1, 2, 11, 24, 3, 36, 40, 4);
my @string = sort { $a cmp $b } @unsorted; #with cmp, we compare $a and $b variables.
print "String sort: @string\n";

my @number = sort { $a <=> $b } @unsorted; # <=> helps us to sorting numbers.
print "Numeric sort: @number\n";