@_ = (104, 97, [112, 2], 121, 32, 98, 105, 114, 116, 104, 100, 97, 121, 10); foreach $_ (@_) { print chr $_ if not ref $_; print chr($$_[0]) x $$_[1] if ref $_; }