open FILE,$input_file or die $!;

my @data;

while(<FILE>){
push(@data,$_);
}
close FILE;