# Import cluster hosts list and print sorted output
print color('bold white') . "The following hosts were found: \n\n" . color('reset');
use File::Slurp;
my @chosts = read_file($chosts_file);
my @vdbhosts = sort @chosts;
foreach my $i (0..$#vdbhosts ) {
	printf '%-2s',"";
	print $i + 1 . ". $vdbhosts[$i]";
}
print "\n";

ASSIGN_VDB_HOSTS:
# Choose the hosts from the list of above
print "Please select the hosts from the list above separated by commas (1,2,3...)\n";
print "\n";
print "Enter selection(s): ";
my $vdbhostinput = (<>);
print "\n";
my @vdbvalues = split(',', $vdbhostinput);
foreach my $i (@vdbvalues){
 	print "  " . $i . ". " . $vdbhosts[$i - 1];
}
print "\n";