sub arrays_sort_elements{
my @TempArray=@_;
@TempArray=join(' ', sort {$a<=>$b} @TempArray);
return @TempArray;
}

my @MyArray = qw(4 11 1 2 10 3 7);
print &arrays_sort_elements(@array);
#Результат: 1 2 3 4 7 10 11