my @strings = ( 'Paint it black', 'Satisfaction', 'Lady Jane' ) ;
say $_, ' ', length for @strings;