open(my($fd),"./file") or die($!); @a=map{split('|',$_)}<$fd>; close($fd);