Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
20080618,dddfff,dfdfdd,xyz123,xxxxxd,

Select or download this

Output : 

$VAR1 = {
          'xyz123' =>'20080618,dddfff,dfdfdd,xyz123,xxxxxd',
          'abc123' =>'20080618,343434,959595,abc123,fjadfaf'
        };