Select Code to Download

foreach my $dataset (1..50) {
    my $data = myread( "$filename.$dataset" );
...
    $data = normalize( $data, { normconstant => 1 } );
    mywrite( $data, "$newfilename.$dataset" );
}

for $i in 1-50 {
    $data = read "datafile.$i";
...
    normalize $data constant=1.0;
    write $data "outfile.$i";
}