How would you use perl debugging tools to pinpoint the problem here?

[tphyahoo]

Here's an artificially simple program that will crash your computer. (It crashed mine anyways!)

use strict;
use warnings;

sub_1();
sub_2();

sub sub_1 {
    my $hash = {};
    $hash->{$_}=1 for 1 .. 10;
}

sub sub_2 {
    my $hash = {};
    $hash->{$_}=1 for 1 .. 10000000;
}

UPDATE: I guess this just isn't possible without using old fasioned elbow grease. In this case obviously you can see the problem by eyeballing it, but in the wilderness these problems tend to be better hidden. Could the masters of perl -d or Devel::* or whatever tool share how they would trick out the fact that

-- sub_2 is the problem
-- $hash in sub_2 is the more specific problem

Much obliged!

UPDATE: Well, I guess it's just not possible.

UPDATE 2: No, you can't have a pony (scroll to the bottom for a picture of the pony :(