my $sql = 'SELECT DP1,DP2 FROM Table1';
	my $sth = $dbh->prepare($sql);
	my $rc = $sth->execute || &pl_fatalSQLError($sql,$DBI::errstr);
	my $resultsArrayRef = $sth->fetchall_arrayref({});# <-- nothing happens past here
	$sth->finish();

my $data;
foreach my $hashRef (@$resultsArrayRef) {
	    $data .= "$$hashRef{DP1}' = $$hashRef{DP2};\n";
	}

print $data;

##</code><code>##

CREATE TABLE dbo.Table1
(
	DP1  varchar(32) NULL,
	DP2  varchar(32) NULL
)