Or even:

print FILEHANDLE "$Sorry_line \n" x $punitive_cnt;
[download]

:^) # Bow to the hyper smiley!
[download]