while (my $line = <>) {
  print $line;
}

foreach my $name (@people) {
  print $name;
}