use Data:: Dumper;
print Dumper $dbh; ###This displays $VAR1 = bless( {}, 'DBI::db' ); -does this mean DB connection was established? (do need an answer here)
print $rows; ###This displays ARRAY(0x1ed0ad8)
print Dumper $rows; ### This displays $VAR1 = []; which means the array reference is empty-but why?
####
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 = [];