Select Code to Download

my @customers= $dbh->selectall_arrayref(<<SQL, { Slice => {} });
 select deb.id
...
    my $sth = $DBH->prepare($statement);
    ...
};

select
    deb.id
...
  AND mc.year='$yearG'
group by deb.id
order by deb.id