for my $c (@clk_output) { $clk_new = join '_', @$c; push @clk_new, $clk_new; }