Help for this page

Select Code to Download


  1. or download this
    use strict; use warnings;
    sub f($) { return $_ [0] + 1 };
    my @a = (1, 2, 3);
    map (f, @a)