while($punitive_cnt != 0){
      print FILEHANDLE "$Sorry_line \n";
      $punitive_cnt--;
      };

##</code><code>##

print FILEHANDLE "$Sorry_line \n" for (1..$punitive_cnt);