#!/usr/bin/perl
my @hostclass = ('Hostclass-A','Hostclass-B','Hostclass-C');
my @hosts;
my @TotalHosts;
my $class;
my $hosts_per_hostclass;

gethosts();

sub gethosts {
foreach $class(@hostclass) {
$hosts_per_hostclass = `expand-hostclass` ;
push (@TotalHosts,$hosts_per_hostclass);
my @dd = split "\n", @TotalHosts;
print "@dd \n";
}
}