Help for this page

Select Code to Download

Select or download this

for  (
         map  { $_->[0] }
...
   print unless $_ eq $prev;
   $prev = $_;
}