Help for this page

Select Code to Download

Select or download this

my @matching_keys = grep /$customer/, keys %Customer;

Select or download this

    # $Customer{$customer} = $_;
    push @{$Customer{$customer}}, $_; # use value slot as anonymous ar
+ray
...

          # print "Customer: $Customer{$customer}\n";
          print join("\n", "Customer:", @{$Customer{$customer}}), "\n"
+;