use strict;
use warnings;

my %entity = (
  A1 => {
    customerID   => '007',
    ssn          => '999-99-9999',
    relationship => 'self',
  },
  B1 => {
    customerID   => '008',
    ssn          => '888-88-8888',
    relationship => 'spouse',
  },
  C1 => {
    customerID   => '009',
    ssn          => '777-77-7777',
    relationship => 'son',
  },
);

foreach my $e (keys(%entity)) {
  print "$e\n";
  print "$entity{$e}{'customerID'}\n";
  print "$entity{$e}{'ssn'}\n";
  print "$entity{$e}{'relationship'}\n";
}