@too_many = qw ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 );

# use a slice
@top_ten = @too_many[0..9]; 
print "@top_ten\n";

# or perhaps a push
push @ten, $too_many[$_] for 0..9;
print "@ten\n";

# or be a little obscure
pop @too_many while @too_many > 10;
print "@too_many\n";