#!/usr/bin/env perl -l

use strict;
use warnings;

my @items = (-39.9999400000);
my $val = $items[-1];
print $val;

my $n = "$val+8";
print $n;

my $x = $val+8;
print $x;

##</code><code>##

-39.99994
-39.99994+8
-31.99994