my @stuff = qw(one two three);
my $length = (@stuff.length)/10;
print $length;