ww@GIG:~/pl_test$ perl  718695.pl
    $found is: a
    $found is: b
    $found is: c
    $found is: a  # dup
    $found is: d