use strict;
my $file;
open FILE, "<test.txt";
{
	local $/ = undef;
	$file = <FILE>;
}
close FILE;

my @ab = split /ABC header line/, $file;
my @array1 = split /\n/, @ab[0];
my @array2 = split /\n/, @ab[1];