foreach (@files) { next unless ($_ eq $img_name); ## skip ones we don't want print "$_\n"; last; } ## or, if you want all files up to (and including) that name: foreach (@file) { print "$_\n"; last if ($_ eq $img_name); }