my @array_of_data = <DATA>;
close (DATA);

foreach my $line (@array_of_data)
{