open (FILE, "$original") or die "Error: $!"; my @lines = ; close(FILE);