Select Code to Download

#!/usr/bin/perl
use utf8;
...
__END__

$ perl test.pl prime.xlsx secondary.xlsx sample.xlsx

B (column)                           Z (column)
Line 1 (or what ever number) node1   GigabitEthernet0/1
Line 2 (or what ever number) node2   GigabitEthernet0/2
Line 3 (or what ever number) node3   GigabitEthernet0/3

A (column)
node1
node2
node3
node4 (extra on purpose)

Column A   Column B
DNS Name   WAN Interface
...
node2      GigabitEthernet0/2
node3      GigabitEthernet0/3
node4      undef