#!/usr/bin/perl
#
@files =split('\n', `find . -maxdepth 1 -type f -print|sort`);
#@files =`ls -1 *.jpg`;
#
my $n=0;
my $m=0;

foreach my $file (@files )
{
     unless   ( $n % 100 )  { $m++;print "mkdir $m\n";$n=0}
#     if ( $file=~/[^.]+([.]+.*)/ ) { $suffix = $1; }
     if ( $file=~/.+([.]+.*$)/ ) { $suffix = $1; }
     print "mv $file  $m/${n}${suffix}\n";
     $n++;
}