perl -le 'use DBI; my $h = DBI->connect;nect; my $r = $h->selectall_arrayref(q/select * from mje/); use Data::Dumper; print Dumper($r);' $VAR1 = [ [ '1226', 'comment1' ], [ '1226', 'comment2' ], [ '1226', 'comment3' ] ];