$ perl -le'my %x = "A" .. "F"; print "@{[ %x ]}"; $_ = lc for %x; print "@{[ %x ]}";'
C D A B E F
C d A b E f