my $sql = $sth->{Statement}; for(sort{$a <=> $b}keys %{$sth->{ParamValues}} ){ $sql =~ s/\?/$sth->{ParamValues}->{$_}/; }