Select Code to Download

#!/usr/bin/perl

...
         };
    };
warn Data::Dumper->Dump([\$data],[qw(*data)]),' ';

$data = \[
            {
...
            }
          ];
  at 11114482.t line 53.