Select Code to Download

my @values;
foreach my $e (@{$data->{httpSample}})
...
    push @values, $e->{lt};
    print "Lt_Value: ", $e->{lt}, "\n";
}

use List::Util qw(min max sum);

...
} else {
    print "No values so no average.\n";
}