for my $link (@links){
        my @fields = split('\t', $link);
       
        ##Print to xls
        my $col = 0;
        foreach my $token (@fields) {
            $worksheet->write($row, $col, $token);
            $col++;
        }
        $row++;
    }