1: foreach (0 .. $#dat){
2: %DAT = '';
3: my @prats = split(/,/,$dat[$_]);
4: foreach (0 .. $#prats){
5: my ($key,$v) = split(/;/,$prats[$_]);
6: $DAT{$key} = $v;
7: }
8: next if($DAT{'id'} eq 'USER-ID')
9: my @y1 = split(/<>/,$dat2[$_]);
10: