or download this
## presume @row has the current (main) row and we're adding value as l
+ast column
## replace with (e.g.) splice or whatever as appropriate
for my $value ( @{ $values_for_id{ $id } // [ "-" ] } ) {
say join( qq{\t}, @row, $value );
}