Help for this page
my $line = <STDIN>; chomp $line;
for (my $i = 0; $i < $#names; $i++) { print $names[$i]; }