if (opendir(DIR, $dir)){
find (\&process, $dir);

foreach my $val (sort { $a <=> $b} @sortarray){
    	@values= split(/\t/, $val);
	push(@finalresult, [Math::BigFloat->new($values[1]),Math::BigFloat->new($values[2])] );
	
}

my $dataSet = Chart::Gnuplot::DataSet->new(
        points => \@finalresult,
	style => "linespoints",
	title => "points"
    );

$chart->plot2d($dataSet);

}else{print "Directory not found:$dir\n";}
@finalresult = ();
@values = ();
@sortarray = ();
}