use strict;
use warnings;

my @values = qw(a b c 9 8 7 1 2 3 6 4 5 x y z);

@values[3 .. 11] = sort {$a <=> $b} @values[3 .. 11];
print "@values";

##</code><code>##

a b c 1 2 3 4 5 6 7 8 9 x y z