$output (" show interfaces terse | match $interface");
@outputlist = split /\s+/, $output;
foreach my $element (@outputlist) {
if ($element =~ /e-/) {
$element = s/.\K.+//;
push (@child_interfaces, $element);
print "1.@child_interfaces\n";
 }