Here's your problem:

foreach my $stmt( @statements ){
$dbh->do($_); }
[download]

There are a couple of things wrong. First, your code is trying to execute the SQL one line at a time. So the first SQL command you are running is:

Create table xyz (
[download]

which generates the error you're seeing. jZed's advice on splitting on semi-colons and re-joining should work.

Also, you're naming your variable for the loop but then you are referencing $_, which may or may not work correctly.

perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi
+n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79
+*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'
[download]