ABORT:while(<$fh>){
        my $data = $_;
        my $params = fd_retrieve($fh);
        ...