while (<DKT>){
 my $line =$_;
#process data in here
}