$regr = regression->new(\%{$element_stats_hash{$element_name}}); print TEST '$regr= ', Dumper($regr);