perl -le 'use DBI; my $h = DBI->connect;nect; my $r = $h->selectall_hashref(q/select * from mje/, "mac"); use Data::Dumper; print Dumper($r);' $VAR1 = { '1226' => { 'comment' => 'comment3', 'mac' => '1226' } };