use strict;
use warnings;
use Data::Dumper;

my @PatternList= qw(index: start:);

open(FH, "<", "test.txt") or die;
my $line;
my @Matches;

while($line=<FH>)
{
        my $pattern;
        foreach $pattern (@PatternList)
        {
                if ($line =~ /$pattern/)
                {
                        print "$line";
                }
        }
}