Select Code to Download

use vars qw(%unk, @foo);
my(@ulist) =  
...
        } map{ 
          [scalar(@foo=split(/\t/, $unk{$_})), $_ ] 
            } keys %unk;

      [scalar(split(/\t/, $unk{$_})), $_ ]

Use of implicit split to @_ is deprecated at extractions line 393.