@temp = map { [ length $_, $_ ] } @strings;