shell> perl -le 'print keys %{{map {$_=>1} qw/a b c d/}}'
cabd