Help for this page

Select Code to Download

Select or download this

@a =
   map $_->[0],
...
         grep defined($_->[1]),
            map [ $_, -M $_ ],
               @a;