for ( my $c= 0; $c<= $#clk_output; $c++) {
   for ( my $d = 0; $d <= $#{$clk_output[$c]}; $d++ ) {
        $clk_new = join '_', @{$clk_output[$c]};
        push @clk_new, $clk_new;
    }
}
print Dumper \@clk_new;

##</code><code>##

$VAR1 = [ 'ux_prim_clk', 'ux_prim_clk', 'ux_prim_clk',
          'ux_side_clk', 'ux_side_clk', 'ux_side_clk',
          'ux_xtal_frm_refclk', 'ux_xtal_frm_refclk',
          'ux_xtal_frm_refclk', 'ux_xtal_frm_refclk'   ];

##</code><code>##

for ( my $c= 0; $c<= $#clk_output; $c++) {
    $clk_new = join '_', @{$clk_output[$c]};
    push @clk_new, $clk_new;
}
print Dumper \@clk_new;

##</code><code>##

$VAR1 = [ 'ux_prim_clk', 'ux_side_clk', 'ux_xtal_frm_refclk' ];

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

@new_list = map { operation_to_perform_on_each_element } @old_list;

##</code><code>##

@clk_new = map { join '_', @$_ } @clk_output;