open(FWS,"firewalls.txt") || die "Unable to load firewall list: $!";

while (<FWS>) {
      chomp;
      print $_;
      open(CMDS,"commands.txt") || die "Unable to load commands list: $!";

      while (<CMDS>) {
            chomp;
            print $_;
      } 
      close CMDS;
}

close FWS;