my $dbh;
eval { $dbh = DBI->connect( $dsn, $user, $pass, { 'RaiseError' => 1 } ) };
my $insert_query = 'insert into queues values( ?, ?, ?, ?, ?, ?, ?, ?, ? );';
my $st_handle;
eval { $st_handle = $dbh->prepare( $insert_query ) };
eval { $st_handle->execute( @row_values ) };

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)