open(DAT_Source, $Source_data_file) || die("Could not open file!");
@raw_data_source=<DAT_Source>;
open(DAT_Expected, $Expected_data_file) || die("Could not open file!");
@raw_data_Expected=<DAT_Expected>;
if (@raw_data_source == @raw_data_Expected)
{
print "DATA MATCHED!";
}
else
{
print "DATA NOT MATCHED!";
}
close(DAT_Source);
close(DAT_Expected);