#!/usr/bin/env perl
use warnings;
use strict;
use String::LCSS qw/lcss/;

my @array1 = ('ux_prim_clk', 'ux_side_clk', 'ux_xtal_frm_refclk');
my @array2 = ('ccu_ux_xtal_frm_refclk_ack', 'ibbs_ux_prim_clkack',
	'sbr_ux_side_clkack');

for my $one (@array1) {
	for my $two (@array2) {
		my $lcss = lcss($one, $two);
		printf "%-18s / %-26s -> %s\n", $one, $two, $lcss;
	}
}

__END__

ux_prim_clk        / ccu_ux_xtal_frm_refclk_ack -> ux_
ux_prim_clk        / ibbs_ux_prim_clkack        -> ux_prim_clk
ux_prim_clk        / sbr_ux_side_clkack         -> _clk
ux_side_clk        / ccu_ux_xtal_frm_refclk_ack -> ux_
ux_side_clk        / ibbs_ux_prim_clkack        -> _clk
ux_side_clk        / sbr_ux_side_clkack         -> ux_side_clk
ux_xtal_frm_refclk / ccu_ux_xtal_frm_refclk_ack -> ux_xtal_frm_refclk
ux_xtal_frm_refclk / ibbs_ux_prim_clkack        -> ux_
ux_xtal_frm_refclk / sbr_ux_side_clkack         -> ux_