while (<HANDLE>) {
   chomp;
   @temp1 = split(/\|/, $_);
   $domain = unpack ("A5", $temp1[17]);
   push @date, $temp1[1];
   push @aaa_partners, $temp1[4];
   push @aaa_arf, $temp1[5];
}
close(HANDLE);

my @data = ( \@date, 
             \@aaa_partners, 
             \@aaa_arf
);