Select Code to Download

use strict;
use warnings;
...

    print Dumper($blah);
}

$VAR1 = bless( [
                 {},
...
                 [],
                 0
               ], 'Tie::IxHash' );