srand;@_=1..90;print(splice(@_,rand($#_-$_),1),$/)for+1..5;