#!/usr/bin/env perl -l

use strict;
use warnings;

use constant { IP => 0, CMD => 1 };

use Inline::Files;

my %data;

while (<IPLIST>) {
    chomp;
    my ($host, $ip) = split /,\s+/, $_, 2;
    $data{$host} = [$ip, []];
}

while (<CMDLIST>) {
    chomp;
    my ($host, $cmd) = split /,\s+/, $_, 2;
    push @{$data{$host}[CMD]}, $cmd;
}

for my $host (sort keys %data) {
    print "Connect to '$host' at '$data{$host}[IP]'";
    print "\tRun command '$_'" for @{$data{$host}[CMD]};
    print "Disconnect from '$host' at '$data{$host}[IP]'";
}

__IPLIST__
HOST1, 10.10.10.101
HOST2, 10.10.10.102
HOST3, 10.10.10.103
__CMDLIST__
HOST1, CommandA
HOST1, CommandB
HOST2, CommandC
HOST3, CommandD
HOST3, CommandE
HOST3, CommandF