#!/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;