my $tkt_data = join ',' =>
    map(sprintf('"%s%", "%s"', @$_) =>
        grep($_->[1] ne '', @ar));