my @ary;
while ( <DATA> ) {
  chomp;
  push @ary, $_ and next if $_> 5;
  print;
}
__DATA__
3
7
9
1