sub {
..
..
    my @ary = $sth->fetchrow_array;
..
..
    my $retval =  thaw(pack("H*", @ary) );
    return @{$retval}
}