if ($#-) {
    no strict 'refs';
    print "$#+ matches found", $/;
    for (1..$#+) {
        print "\$_ is $_, & \$1 is $1", $/;
        print  "$haystack contains ${$_} at $-[$_]", $/;
    }
}