#!/usr/bin/perl

sub get_hosts {
   @hosts=("host1.domain.com","host1.domain.com","host1.domain.com","host1.domain.com"); 
   @app = ();
   while (@hosts) {
       $rv = int(rand(@hosts));
        push @app,$hosts[$rv];
        $hosts[$rv] = $hosts[$#hosts];
        pop @hosts;
	}
	$thosts = "$app[0],$app[1],$app[2],$app[3]";
	return $thosts;
}

print &get_hosts();