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

##</code><code>##

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