my @results = grep { grep { $_ =~ /(?=.*cat)(?=.*dog)/i } values %$_ } @{ $lines };