my $poop = {};
$poop->{"anything you want goes here"}  = sub {warn(@_)};
$poop->{"anything you want goes here"}->('arg1',2,3);