while (<>) {
  push @data,$_; # adds $_ to the end of @data
}

##</code><code>##

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