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