use strict;
use warnings;

while (my $line = <DATA>) {
...
}

__DATA__
...