#!/usr/bin/perl -w

use DBI;
my $dbh = DBI->connect('dbi:mysql:test') or die $DBI::errstr;

my $TABLE = shift;
$TABLE = 'ctx_test_1_data' unless defined $TABLE;

my $sth = $dbh->prepare("select word,idx from $TABLE order by word");
$sth->execute;

while (my @data = $sth->fetchrow_array) {
	$data[1] = join ' ', unpack 'S*', $data[1];
	print "@data\n";
	}