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