# Create a file array of lines
while ($line = <FILE>){
    push (@array, $line);
}