perl -nle"print substr( $_, 21 ) . substr($_, 0, 21 )" dataf 
| \windows\system32\sort /M 5242880 /+62 
| perl -nle"print substr($_,62) . substr($_,0,-21)" > dataf.sorted