Thanks all for the replies. I do have some background in programming, so most of the basics seem to fit right in with perl very well. Since I last posted, I've had a little bit of time to sit down and write up some code... Below is what I have so far.. now to add the SSH code.

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]