my $var = $_ while (<DATA>);