...
$VAR1 = [
          bless( [
                   bless( {
                            '_After_' => {
                                           'after#2' => $VAR1->[0]
                                         },
                            '_TkValue_' => '.frame.message',
                            '_Destroy_' => [
                                             bless( [
                                                      sub { "DUMMY" },
                                                      $VAR1->[0][0]
                                                    ], 'Tk::Callback' )
                                           ]
                          }, 'Tk::Message' ),
                   'after#2',
                   1000,
                   'once',
                   bless( [
                            sub { "DUMMY" }
                          ], 'Tk::Callback' )
                 ], 'Tk::After' )
        ];