my @line = <DATA>;
for my $line (@line) {