use Data::Dumper;

my @array = (1..100);

# speichere das 2., 7., 10., 14. Element aus @array
# in @tmp
my @tmp = @array[1,6,9,13]; 

print Dumper \@tmp;