use strict;

my @hosts = (
  "host1",
  "host2",
  "host3",
  "host4",
);

my $pick = $hosts[rand @hosts];
print "host: $pick\n";