my @ref = qw( aaaaaaa bbbbbbb cccccccc ddddddd );
   $sth->execute ( $ref[0], $ref[1], $ref[2], $ref[3] );