$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' )
        };