$corresonedname=($arrone[$p]."astat.gz";

##</code><code>##

$calfilename=&gencalfn($corresonedname,$comparison)

##</code><code>##

$example="this_is";
if ($start_a_block) {
  print "Indent by two spaces\n";
  print "And keep indenting until the blopck is done\n";
}

for $x (@every_block) {
  print "Indenting goes in 2 spaces every time\n";
  if ($another block) {
    print "Notice we are now inside two blocks, ";
    print "and have indented twice\n";
  }
  print "Still inside the 'for' loop, so indent is 2\n";
}

##</code><code>##

$hour=<STDIN>;chop($hour);
for($n=0;$n<=10;$n++)
{chop($calibnamenew);}
for($c3=0;$c3<=$c2;$c3=$c3++)

##</code><code>##

chop($hour=<STDIN>);
for $n (0..10) {
chop($calibnamenew);
for ($c3=0; $c3<=$c2; $c3++) {