perl -le '
                   @l=(1..49);@i=
                (1..9);       sub z{
               splice(
              @_,rand@
              _,1);}sub Y{push@@,
              z@_;}*_=*l;Y@_;Y@_;
              Y@_;Y@_;
              Y@_;*_=*
              i;Y@_;Y@_;$,=" ";
              sub l{print+sort{
              $a<=>$b}
                @_;}l+       splice
                   (@@,0,5); l@@;
'