Select Code to Download

my @array = array_creation_statement;
list_function @array;

list_function array_creation_statement;

#!/usr/bin/perl -w
use strict;
...
#    ["wrong grep"], \@grep_map_ar,
    ["*map 2* (OK)"], \@map2_ar
    );