loop $i (1 to 50)
   new data;
   data.read( datafile.$i );
   data.shift( 0.05 );
   data.normalize( constant=1.0 );
   data.write( outfile.$i );
   # note: could perl eval() the stuff in parentheses?
endloop