Select Code to Download

use strict;
my ($s_counter);
...
 $Sheet->Cells(1,1)->{Value} = "somevalue";
  $s_counter=$s_counter+1;
}

$s_counter = 0;
until ($s_counter == $permanent_counter)
...
 $Sheet->Cells(1,1)->{Value} = "somevalue";
  $s_counter=$s_counter+1;
}