$ perl -Mstrict -Mwarnings -E '
> my @arr = ( 1 .. 10 );
> my $sum;
> $sum += int rand 2 ? shift @arr : pop @arr while @arr;
> say $sum;
> say qq{-> @arr <-};'
55
->  <-
$