delete $ERA {$self}, $Strikeouts {$self}

That won't work like you expect it to.

$ perl -le 'my(%one,%two);$one{k}=1;$two{k}=2;delete $one{k}, $two{k};
+ print "one exists" if exists $one{k};print "two exists" if exists $t
+wo{k}'
two exists
[download]

Nice technique though.

-sauoq
"My two cents aren't worth a dime.";