Select Code to Download

__DATA__
CUSTA
...
CUSTB
2/2015 100
3/2015 100

$VAR1 = {
          'CUSTA' => [
...
                     ]
        };

    # note:
    #
...
    #
    # map creates a new list consisting of one element, undef, for eac
+h
    # element from the list it is given, i.e. @months

#!/usr/bin/perl

...
CUSTB
2/2015 100
3/2015 100

$VAR1 = {
          'CUSTA' => [
...
                       undef
                     ]
        };