#! /usr/bin/perl -w

use strict;
my @a = (1..200000);

$SIG{INT} = sub {
  open OUT, '>>logfile';
  foreach( @a ) {
    print OUT "$_\n";
  }
  close OUT;
  exit;
};

1 while 1;