this is slow because evals are slow, the argument to eval is parsed every time the eval executes. $$_ would do the same, however this will not work with use strict;unless you define a variable foreach of them using my($big $list $of $all $the $varables $you $might $want $to $use)
the best way to do it is probably to use a hash: $objects{$_}->insert('end', $dat{$_});