for ( @range ) {
   push( @blah, $lines[ $#lines - splice( @range, int rand @range, 1 ) ] )
}