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