Perl Module DBI, select_all* methods

my @rows = @{$dbh -> selectall_arrayref('select id, ipnr from log limit 100')};

for my $row (@rows) {
  print $row->[0], ": ", $row->[1], "\n";
}