$canvas->bind($dk_img, "<Button-1>", [\&frst_clk,
      { deck => $deck, waste => $waste, img => $dk_img }]);

##</code><code>##

$VAR1 = {
          'deck' => bless( {
                             'next' => 0,
                             'num' => 0,
                             'max' => 52,
                             'cards' => [
                                          bless( {
                                                   'state' => 'up',
                                                   'where' => $VAR1->{'deck'},
                                                   'value' => 'j',
                                                   'suit' => 's'
                                                 }, 'Card' ),
...more blessed cards...
                                          bless( {
                                                   'state' => 'down',
                                                   'where' => $VAR1->{'deck'},
                                                   'value' => 5,
                                                   'suit' => 'c'
                                                 }, 'Card' )
                                        ]
                           }, 'Pile' ),
          'img' => 12,
          'waste' => bless( {
                              'next' => 0,
                              'num' => 0,
                              'max' => 52
                            }, 'Pile' )
        };

##</code><code>##

$_->{deck}

## to no avail, so then I tried:

$_{deck}

## then:

${@_{deck}}

## and a bunch of other big and baggy monsters ...