sub return_values { my $dbh = FuncClass::Connect->dbh; my $query = "SELECT name,address,phone,email,account#,date from mytable where id_code = ?"; my $sth = $dbh->prepare($query); $sth->execute($_); my @return_rows; while (my @row = $sth->fetchrow_array()) { push @return_rows, \@row; } $sth->finish(); $dbh->disconnect(); return \@return_rows;