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

##</code><code>##

    # $Customer{$customer} = $_;
    push @{$Customer{$customer}}, $_; # use value slot as anonymous array

# later

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