my $line = <STDIN>;
chomp $line;

##</code><code>##

for (my $i = 0; $i < $#names; $i++)
{
    print $names[$i];
}