Select Code to Download

foreach my $line (@lines) {
        $sth->execute($line, $line) or die "Can't execute SQL statemen
+t: $DBI::errstr\n";
...
        print Dumper @sorted1;
}

$VAR1 = 'ARRAY(0x94db6f8)';
$VAR2 = 'ARRAY(0x94db6f8)';
...
$VAR1 = 'ARRAY(0x94db6f8)';
$VAR1 = 'ARRAY(0x94db6f8)';

$VAR1 = [
          'data',
...
          'etc..etc',