Thanks ya'll, I forgot to mention that my hosts needed to be in a list...also the reason I wanted to not require an external call is because the script calling my hosts doesn't belong to me thus I was attempting to make the code simple and not require additional Modules to be installed/called...

After some thought/research I have decided upon the following code as my solution...

#!/usr/bin/perl

sub get_hosts {
   @hosts=("host1.domain.com","host1.domain.com","host1.domain.com","h
+ost1.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();
[download]

Thanks again everyone for your suggestions...

Danny