# Create the files 
for (my $i = 0; $i < 520; $i++ ) {
  open(TOUCH, "touch cb$i.txt|") or die "could not touch the file $i";
  close(TOUCH);
}