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();