Select Code to Download

Date;Time;Station;Frq;Mode;Pwr;Conf;Sent;Rcvd;End;Name;QTH;Remarks;S;R
+;DXCC;STX;SRX;Mult;Pts;ITU;CQ;ContID;Pfx;Cont;Freq;RXpwr;State;Prov;C
+ounty;QSL Via;Age;Grid;QslRdt;QslSdt;Sect;Iota;Prop;Qslmsg;Satmod;Sat
+nm;Tenten;Addr;Notes;Submode;DOK;OBL;JCC;JCG;BandRX;QRP;SWL;Cmpl;QSO#
+;Lat;Lon;eqslS;eqslR;eqslS_Dt;eqslR_Dt;lotwS;lotwR;lotwS_Dt;lotwR_Dt;
+Rig;Az;El;Eq;FI;MB;MSSH;Bursts;Pings;Op;Stn;Ownr;Sig;SigInf;Key;Confi
+g;Email;S_via;R_via;Q;ud1;ud2;Sp4;Sp3;Sp2;Sp1
2005-10-29;21:34:00;VC3O;14;SSB;;MWB;59;59;;;;;N;N;1;4;4;;;12;09;;VC3;
+NA;;;;;;;;;;;;;;;;;;;;;;;;;;0;; ;0001;;;Y;Y;;;Y;N;;;;;;;N;;;;;;;;;;;;
+;E;;N;;;;;;
2005-10-29;21:41:00;NY1Q;14;SSB;;MWB;59;59;;;;;N;N;291;4;5;;;8;5;;NY1;
+NA;;;RI;;Washington;;;;;;;;;;;;;;;;;;;;;0;; ;0002;;;Y;N;;;Y;N;;;;;;;N
+;;;;;;;;;;;;;;;N;;;;;;
2005-10-29;21:47:00;NQ4I;14;SSB;;MWB;59;59;;;;;N;N;291;4;5;;;8;;;NQ4;N
+A;;;GA;;Spalding;;;;;;;;;;;;;;;;;;;;;0;; ;0003;;;Y;N;;;Y;N;;;;;;;N;;;
+;;;;;;;;;;;;N;;;;;;
2005-10-29;21:57:00;K3LR;14;SSB;;MWB;59;59;;;;;N;N;291;4;5;;;8;5;;K3;N
+A;;;PA;;Mercer;;;;;;;;;;;;;;;;;;;;;0;; ;0004;;;Y;Y;;;Y;Y;;2006-04-14;
+;;;;N;;;;;;;;;;;;;E;;N;;;;;;

#!/usr/local/bin/perl
use strict;
...
while (my $row = $sth->fetch) {
       print "@$row\n";
}

Execution ERROR: Can't use string ("CAN'T FIND COLUMN NAMES ON FIRST")
+ as an ARR
AY ref while "strict refs" in use at C:/Perl/site/lib/AnyData.pm line 
+126, <GEN0
...
\MYDOCU~1\MYPROJ~1\PARSIN~1\TEST-C~1.PL line 13.

C:\Documents and Settings\N7DQ\My Documents\MyProjects\ParsingXML>