open (DATA, "<file.txt") or die "Can't open file $!\n";
<DATA> while $. < 21;
my @DATA = <DATA>;
close (DATA);