while( my $line = <DATA> ){
  ...
}
...
__DATA__
sample
input
data