use strict;
use warnings;

open(FH,'<','input') or die "$!\n";
my @array = <FH>;
close FH;
push(@array,"Your new data\n");
open(OUT,'>','output') or die "$!\n";
print OUT @array;