@data=grep /$en/,@eng_dat; #### @data=grep (/$en/,@eng_dat);