#!/usr/bin/perl

$prop_id = "o06153";
@N=(71234,71236,71240);

 $c = sprintf "q_arith /data/$prop_id/COMQ000%d.fits + /data/$prop_id/COMQ000%d.fits wrk1.fits",$N[0],$N[1];
 printf "%s\n",$c;system($c);

 for($i=2;$i<=$#N;$i++){
   $c=sprintf "q_arith wrk1.fits + /data/$prop_id/COMQ000%d.fits wrk2.fits",$N[$i];
   printf "%s\n",$c;system($c);
   $c="cp wrk2.fits wrk1.fits" ;
   printf "%s\n",$c;system($c);
 }
 printf "Total %d files\n",$#N+1;