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