#! /opt/third-party/bin/perl
                                                                              
open(FILE, "< filename") || die "Unable to open file. <$!>\n";
                                                                              
while( chomp($content = <FILE>) ) {
  push(@arr1, $content);
}
                                                                              
#If this needs to be displayed
foreach my $var(@arr1) {
  print "$var\n";
}
                                                                              
close(FILE);
                                                                              
exit 0