my $rows=[];
	$sth = $dbh->prepare( $SQL );
	$sth->execute();
	
	push @{$rows}, $_ while $_ = $sth->fetchrow_hashref();
	
	print Dumper $dbh; #Prints $VAR1 = bless( {}, 'DBI::db' ); 
	print Dumper $sth;#Prints $VAR1 = bless( {}, 'DBI::st' ); 
	print Dumper $rows; #Prints $VAR1 = [];