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