- or download this
for my $row ( @{$serials}) {
my $equ = $$row[$equIndex];
my $pmf = $$row[$pmfIndex];
...
%duplicates = ($clean => [$equ, $pmf, $pro, $serial, $usr,
+ $date]);
}
}
- or download this
clean1 -> [[equ info] -> [equ info]]
clean2 -> [equ info]
clean3 -> [[equ info] -> [equ info] -> [equ info]]
- or download this
clean1 -> [equ info, array]
clean2 -> [equ info]
clean3 -> [equ info, array, array]