my $ref = $dbh->selectall_arrayref(" select name, email from users") || die $dbh->errstr; foreach my $person (@{$ref}) { my ($name,$emai) = @{$person}; $_=$Name; s/ /_/g; $Name=$_; print "Name : $name "; print " Email : $email
"; }