Help for this page
use strict; use warnings; ... open my $FH, '<', \$dataFile; exists $headers{$_} and print while <$FH>; close $FH;
>DFHGSUEIEEK >JKDHUEIEEOE >KDJIEEIOIEO