Select Code to Download

use strict;
use Data::Dumper;
...
9344220003|sei10720016,23/07/2009-20-00-23
9344220003|sei10720017,23/07/2009-20-00-23
9344220003|sei10720018,23/07/2009-20-00-23

$VAR1 = {
          '9344220003' => [
...
                            ]
                          ]
        };