Liste auf x Elemente kürzen

[Struppi]

Wie kann ich aber erreichen, daß wenn z.B. 15 Elemente vorhanden sind, ALLE bis auf die ersten 12 entfern werden?

z.b. so:~~~perl my @arr = qw/1 2 3 4 5 6 7 8 9 10 11 12 13 14/;
my @new_arr = @arr > 11 ? @arr[0..11] : @arr;
use Data::Dumper;
print Dumper @new_arr;

  
Struppi.