Hi,
   I am using an interrupt signal handler as follows:
our @kill_array = ();
$sig{INT} = \&quitting
.
.
sub quitting {
  my $in = shift;
  my @groups = @kill_array;
  if ( (defined $groups[0]) && ($groups[0] ne "") ) {
  print "Exitting\n";
  print "@groups\n";
  }
  exit(1) or die;
} #End sub

I get the following error when I run it, the value of 
@kill_array is correct:
Caught a SIGSEGV at /perl5.6.0/lib/Carp/Heavy.pm line 88
Segmentation fault

Can anyone tell me why I get this error?
Thanks