Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
__DATA__
9344220001|sei10720013,21/07/2009-00-00-00,23/07/2009-12-34-44
9344220001|sei10720014,23/07/2009-20-00-23

key for 9344220001 merge values: sei10720013,21/07/2009-00-00-00,23/07
+/2009-12-34-44
key for 9344220001 merge values: sei10720013,21/07/2009-00-00-00,23/07
+/2009-12-34-44
$VAR1 = {
...
                            'sei10720014,23/07/2009-20-00-23'
                          ]
        };