# my @lines = grep { -1 != index $_, $address } @contents;
my @lines = grep { -1 != index $_, "=$address " } @contents;
my @indexes = grep {
    -1 != index $content[$_], "=$address ";
} 0 .. $#contents;