use Data::Dump qw(dump);
use Text::Trie qw(Trie walkTrie);
my @trie = Trie qw(
Devices_CLI_Inspection
Devices_CLI_Inspection_L2
Devices_CLI_Inspection_L2_FilterDatabase_General
Devices_CLI_Inspection_L2_SpanningTree
Devices_CLI_Inspection_L2_SpanningTree_MST
Devices_CLI_Inspection_L2_VLAN_General
Devices_CLI_Inspection_System_Config
);

dump(\@trie);

walkTrie sub {print("[",shift,"]")}, sub {print(shift)},
  sub {print "->"}, sub {print ","}, sub {print "("}, 
  sub {print ")"}, @trie;