for my $id ( keys %id_policy ) {
    foreach (@{ $id_policy{$id} }) {
        if ( /set\spolicy\sid\s(\d+)\s(from|name\s\"[^"]+\"\sfrom)\s\"Untrust\"\sto\s"DMZ/ ) { 
            foreach my $line (@{$id_policy{$id}}) { print $line }
        }
    }