sub createGraph() {
	my (@array) = @_;
	my @values;
	my @finalResult = {};
	
	foreach my $val (sort { $a <=> $b} @array){
	print $val."\n";	   	
		@values= split(/\|/, $val);

		push(@finalResult, [Math::BigFloat->new($values[1]),Math::BigFloat->new($values[2])]);
	}
	
	my $dataSet = Chart::Gnuplot::DataSet->new(
	points => \@finalResult,
		style => "points",
		title => "$dir"
	);
	$chart->plot2d($dataSet);		

}