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

##</code><code>##

my %hash;
while ( <DATA> ) {
  chomp;
  $hash{$_}++ and next if $_ > 5;
  print;
}
__DATA__
3
7
9
1