Select Code to Download

snip...
   my @row = split(/;/, $array[$_]);
...
      print "Empty line at: $_\n";
   }
snip...

open(IN, "$file") || die "Cant open $file\nReason: $!\n";

...
      print "Empty line in $file at line: $.\n";
   }
}