Select Code to Download

use strict;
use warnings;
...
$Data::Dumper::Indent = 0;
my $r = $h->selectall_arrayref(q/select len(a) from mje/);
print Dumper($r);

'master', 'dbo', 'mje', 'a', '-3', 'varbinary', 0, 0, undef, undef, '1
+', undef, undef, '-3', undef, 0, 1, 'YES', '0', '0', '0', '0', undef,
+ undef, undef, undef, undef, undef, '37'
1 rows
...
Inserted 8192000
Inserted 16384000
$VAR1 = [['1000'],['2000'],['4000'],['16000'],['32000'],['64000'],['12
+8000'],['256000'],['512000'],['1024000'],['2048000'],['4096000'],['81
+92000'],['16384000'],['8000']];