perl -e 'my %t=qw(a A b B c C d D e E); print join("", %t) . "\n"'