my $sth_items= $dbh->prepare(<<SQL);
    select * from myitems where date > '20140101';
SQL

while(my $item= $sth_items->fetchrow()) {
    ...
    lengthy process for each item
    ...
};