my %raw_data = ( 1 => 100, 2 => 160, 2.5 => 182, 3 => 225 ); my $regr = regression->new(\%raw_data); print '$regr= ', Dumper($regr); $mean_x = $regr->get_mean_x; print '$mean_x= ', Dumper($mean_x); #### $regr= $VAR1 = bless( { 'mean_y' => '166.75', 'raw_data' => { '1' => 100, '3' => 225, '2' => 160, '2.5' => 182 }, 'slope' => '60.6285714285714', 'mean_x' => '2.125', 'y_intercept' => '37.9142857142857' }, 'regression' ); #### $raw_dataPtr = \%{$element_stats_hash{$element_name}{'raw_data'}}; $$raw_dataPtr{$time} = {$var}; #### #$regr = regression->new(\%{$element_stats_hash{$element_name}{'raw_data'}}); $regr = regression->new(\%{$element_stats_hash{$element_name}}); print TEST '$regr= ', Dumper($regr); #### $regr = regression->new(\%{$element_stats_hash{$element_name}}); print TEST '$regr= ', Dumper($regr); #### 'raw_data' => { '1229265435' => { '0.12205589' => undef }, '1229299036' => { '0.71940041' => undef }, '1229317107' => { '1.22392523' => undef }, #### 'raw_data' => { '1229265435' => '0.12205589', '1229299036' => '0.71940041', '1229317107' => '1.22392523' },