$ perl -E 'my @Upper = map uc, qw( B l e I st iFt); say qq{@Upper};'
B L E I ST IFT