my @array = qw/this that those these/;
foreach my $word ( @array ) {
    print $word, "\t";
    redo if $word =~ m/that/;
}