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;
[download]

Just a FYI (not that it's better to do this). print defaults to $_ so sayin print $_ is the same as saying print

It makes it more cryptic really, so it's not neccessarily better to do that.. just a FYI

---

Grygonos