Select Code to Download

...
 my $columnID = $column[0];
...
  }
 }
...

c:\@Work\Perl\monks>perl -le
"use strict;
...
 }
"
Use of uninitialized value in pattern match (m//) at -e line 1.