my ($row1, $row2)
  = map { $dbh->selectrow_array("SELECT COUNT(*) FROM $_") }
  qw<table_one table_two>;