#!/usr/bin/perl
use Strict;
my $filename = 'file.txt'
open FILE, $filename;
my @text = <FILE>;