add check for "Occurrence" to pica_map()

[jorol]

    if (defined $occurrence) {
        $perl .= "next if (!defined ${var}->[1] || ${var}->[1] ne '${occurrence}');";
    }

Add test.