my @array = ( @$ref[0], @$ref[1], @$ref[2], @$ref[3] );
   $sth->execute ($array[0], $array[1], $array[2], $array[3]);