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


print $val;

close (FILE);