C:\Daten\perl>perl
@array = 1..10;
print +(join ', ', $array[2.3], $array[2.5], $array[2.7], $array[rand @array]), "\n";
^Z
3, 3, 3, 1