}#!/usr/bin/perl

my @array = (11,1354,15,199);
print "@array\n";

foreach $xx (@array) {
  print "xx=$xx \n";
}

print "after sort \n";
foreach $xx (sort {$a <=> $b} @array) {
  print "xx=$xx \n";
}




----------------
$ perl foreach.pl
11 1354 15 199
xx=11
xx=1354
xx=15
xx=199
after sort
xx=11
xx=15
xx=199
xx=1354