Select Code to Download

my $query = $dbh->prepare("SELECT * FROM items ORDER BY created ASC");
+   

...
    next if $h_fields->{status} eq 'no';                # not needed w
+ith WHERE clause
    ...
}

$ary_ref = $sth->fetchrow_arrayref;
$ary_ref = $sth->fetch;    # alias