use List::Util qw( minima );

sub pick { $_[rand(@_)] }

my $val = pick
          minima { length }
          @list;