my $i = 0;
my $input = ':xxx xxxxx = #xxx :xxx @rndletters @rndletters';
my @names;
my @input2arr = split //, $input;
for my $str (@input2arr) {
  if ($i > 6) { push (@names, $str); }
  $i++;
}