Select Code to Download

c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my @ra  = (1, 3689, 2, 2462, 3);
...

length $pS2 == 10
[1, 7360, 2, 4912, 3]