while(defined($_=<DATA>))

##</code><code>##

    while (<DATA>)

##</code><code>##

    open(DOC,'sample_testing') or die "Can't open input file: $!";