Select Code to Download

my $rows = $dbh->selectall_arrayref($SQL,{Columns =>{}}) ;

...
foreach (@$rows) {
    print "I say $_\n"; (Problem here-no output on screen.)
    }

foreach (@$rows) {

foreach (@{$rows}) {