#!/usr/bin/env perl
use warnings;
use strict;
my $file = "$ARGV[0]";
my @input_data;
open INFILE_1, '<',  $file or die "Can't open '$file' : $!\n";
@input_data = <INFILE_1>;
close INFILE_1;

# Just to show you that the @input_data array contains the same
# content as the input $file, including all newlines (\n).
print for (@input_data);