$ perl -Mstrict -Mwarnings -E ' > my @arr = ( 1 .. 10 ); > my $sum = sub { > my $sum; > $sum += int rand 2 ? shift : pop while @_; > return $sum; > }->( @arr ); > say $sum; > say qq{-> @arr <-};' 55 -> 1 2 3 4 5 6 7 8 9 10 <- $