geht auch noch einfacher:
my $element = $array[rand @array];