open(ENG,"; close ENG; my $en="EN-1000-0003-3"; my @data= grep /$en/,@eng_dat; print @data;