#!/usr/bin/perl -w
use strict;

my $resultnow='C:/Users/user/Desktop/solution.dat';

open (FILE, '<', $resultnow) or die "$resultnow File not found : $!";
my @lines = <FILE>;

my $valuenow= $lines[9];

my @items=split' ',$valuenow;



use Data::Dumper;



#print Dumper(@items);
my $val=Dumper("$items[-1]");


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

close (FILE);