#!/local/bin/perl
for ($counter=1; $counter<200; $counter++) {
  # create filenames
  $filev = sprintf("v%03d", $counter);
  printf("$filev  1/\n");
}