my @array=(12,6,2,9,15);
foreach (sort { $a <=> $b } @array)
{ print $_, " "; }