my $index = 1; foreach my $number (@numlist) { unless ($index == $number) { print "..."; last; } $index ++; }