my $largestValue = 0;
my (@xAxisOfDates,@yAxisOfPartners,@yAxisOfArfi, @data) = ();
open(HANDLE,"integrate.dat");
while (<HANDLE>) {
   chomp;
   @temp1 = split(/\|/, $_);
   $domain = unpack ("A5", $temp1[17]);
   push(@xAxisOfDates, $temp1[1]);
   push(@yAxisOfPartners, $temp1[4]);
   push(@yAxisOfArf, $temp1[5]);
   if ($temp1[4] > $largestValue){
       $largetValue = $temp1[4];
   }
   if ($temp1[5] > $largestValue){
       $largestValue = $temp1[5];
   }
}
close(HANDLE);

@data = (\@xAxisOfDates, \@yAxisOfPartners, \@yAxisOfArf);