foreach $number (sort { int($a) <=> int($b) } @array) {
$number3[$n] = $number2;
$n++;
}
print "@number3";