while(<>) { @array = $_; @array = split; }