print "Sorted => @num_list\n";

# Output:  Sorted => 34 2 65 345 987 23 12 45 62 100

##</code><code>##

@num_list= sort {a <=> b} @num_list1;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my @num_list1=(34,2,65,345,987,23,12,45,62,100);
my @num_list= sort {a <=> b} @num_list1;
print "Sorted:  @num_list\n";

# Output:
#
# Bareword "a" not allowed while "strict subs" in use at 1026159.pl line 7.
# Bareword "b" not allowed while "strict subs" in use at 1026159.pl line 7.
# Execution of 1026159.pl aborted due to compilation errors.

##</code><code>##

    $mid = ($low+$high)/2;