#!/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.