Help for this page

Select Code to Download

Select or download this

sub mymap (&@) { my ( $code, @list ) = @_; map &$code, @list }

...
reset_cbs();
print(( map   &{ get_cb() }, qw( a b c d ) ), "|");
print(( map   &{ get_cb() }, qw( a b c d ) ), "\n");

Select or download this
```
abcd|ABCD
aBcD|aBcD
```