
while (<>) {
  chomp;
  my ($who, $action, $how_much) = split;
  $customer{$who} = 1; 
}

print join(" ", keys %customer), "\n";        


