open my $fh, '<', \$file;
chomp( my @array = <$fh> );