$ ./perl -wle 'for(1..10) {my *x} print sort keys %lexical::' _GEN_0_GEN_1_GEN_2_GEN_3_GEN_4_GEN_5_GEN_6_GEN_7_GEN_8_GEN_9