Select Code to Download

#!/usr/bin/perl -w
use strict;
=head - Per OP
...
    }
}

ww@GIG:~/pl_test$ perl -c 718695.pl
718695.pl syntax OK
...
$found is: b
$found is: c
$found is: d

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