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