Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
Name3  China,HongKong,Canada
Name4  London,Amsterdam,Ireland,USA
Name5  India,USA,Canada

Select or download this

C:\test>junk.pl
        Name1   Name2   Name3   Name4   Name5
...
Name3   2       2       0       3       2
Name4   3       4       4       0       3
Name5   1       1       2       2       0