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";