@data=<IN>;
やるなら、
push(@data,$_) while <IN>;
だな