open (FILE, "$original") or die "Error: $!";

my $lines = <FILE>;

my @array = split(/\n/, $lines);
close(FILE);