#!/usr/bin/perl

@flist = ("del","vel","tau_H");

  for ($i=0; $i<10; $i++) {

    foreach $j (@flist) {

      $cmd = sprintf "cp %s_%d_ej.dat %s_%s_nj.dat",$j,$i,$j,$i;
      print "$cmd\n";  $output = `$cmd`;
      if ($output) {print "$output";}

      $cmd = sprintf "cp %s_%d_ej.dat %s_%s_lj.dat",$j,$i,$j,$i;
      print "$cmd\n";  $output = `$cmd`;
      if ($output) {print "$output";}

    }

  }

  $cmd = "chmod og+r \*";
  print "$cmd\n";  $output = `$cmd`;
  if ($output) {print "$output";}
