print do{ { print 'fred'; map $_,1 .. 10 } };;
fred
1 2 3 4 5 6 7 8 9 10