sub leaky {
  my %hash;
  $hash{'fred'} = 'flintstone';
  $hash{'me'} = \%hash;
}

leaky(sleep 1) while 1;