Select Code to Download

my @ar = (
  ['2',         $p_suby],
...
    $tkt_data .= sprintf('"%s%", "%s"', @$_);
  }
}

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