Select Code to Download

$VAR1 = [
          [
...
          ]
        ];

 and more useless down
 ],
          [
...
            ' '
          ],

#!/usr/bin/perl

...

print Dumper($row);