sub db_execute { ... return $dbh->selectall_arrayref($query); } my $result = db_execute($SQL); foreach my $row (@$result) { my ($a, $b, $c) = @row; ... }