Select Code to Download

use warnings;
use strict;
...
__DATA__
a 1 2 3 4 5 6
b 9 8 7 6 5 4

$VAR1 = {
          'a' => {
...
                            ]
                 }
        };