hi, here's a japh with tie, iterators and some identity function variation.

sub FETCH{shift ,qq;@_,\n;}sub TIEHASH
{bless[@_]}sub SCALAR{pop@{+shift}}tie
%==>main=>hacker=>Perl=>another=>Just;
print qq;$={qq(@{[map$_=%==>k..n]})};;
[download]

suggestions welcome :)