Select Code to Download

print "Sorted => @num_list\n";

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

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

#!/usr/bin/perl

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

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