#!/usr/bin/perl

package Eraseme;

use strict;
use Data::Dumper;

my @object;

tie my %x, 'Eraseme';
print "Outside:\n";
print Dumper( \@object );

#print keys %{ $object[0][0] }; print "Uncommenting this won't prevent it.\n";
#print Dumper( $object[0][0] ); print "Uncommenting this won't either.\n";

#untie %x; print "Uncommenting this, however, prevents the error.\n";

sub TIEHASH {
  push @object, [ \%x ];
  my $ret = bless { }, 'Eraseme';
  print "Inside:\n";
  print Dumper( \@object );
  $ret;
}

sub DESTROY  { 
#  print Dumper( $object[0][0] ); print "Uncomment this. See? It exited.\n";
#  untie %x;                      print "Uncomment this, and Segfault!.\n";
  print keys %{ $object[0][0] }; 
  print "Destroyed\n";
}

sub FIRSTKEY { }
sub STORE    { }
sub FETCH    { }
sub NEXTKEY  { }
sub EXISTS   { }
sub DELETE   { }
sub CLEAR    { }