$ strictv foo.pl
    $card        : 3
    $cardcounter : 2
    $count       : 2
    $counter     : 3
    $i           : 5
    $number      : 2
    $suit        : 2
    $types       : 2
    @alreadyused : 2
    @cards       : 6
    @iterations  : 2
    @suit        : 2
foo.pl: 12 variables