for my $member (@array) {
    print length $member, "\n";
}