Column1      Column2
apple        banana;
cat          dog;
elephant     flag;
dog          home
banane       kite
 and so on....

##</code><code>##

Column1      Column2       Column3
apple        banana        kite
cat          dog           home
elephant     flag
 and so on....

##</code><code>##

my $sth = $dbh->prepare("INSERT INTO Test3 values (?,?)");
my $order1 = $dbh->prepare("SELECT Column1 FROM Test3 ORDER BY Column1");
$sth->execute($words[0],$words[1]) or die $DBI::errstr;
            $order1->execute();
while(@row = $sth->fetchrow_array())
{
print qw($row[0]\n$row[1]\n$row[2]\n);}

$sth->finish();
$order1->finish();