perl -MDBI -le 'my $h = DBI->connect; use Data::Dumper; my $r = $h->selectall_arrayref("select * from mje");print Dumper($r);'
$VAR1 = [
          [
            1,
            'fred'
          ],
          [
            2,
            ''
          ],
          [
            3,
            undef
          ]
        ];