my @column_names = qw( chk ); # I assume you have more? my $columns_joined = join "," => map { $db->quote($fd{$_}) } grep { exists $fd{$_} } @column_names; my @column_values = split /\0/, $columns_joined;