while(my $client = <>) {
  chomp $client;
  chomp(my $phone = <>);
  chomp(my $email = <>);
  ...
}