in reply to golfing one liner

The bash answer is even shorter than any Perl one-liner:
echo {a..z}
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]