$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' );