use 5.010;
use List::MapMulti;

my $letters = ['', 'a'..'z', 'A'..'Z', '_'];
mapm { say join q() => @_ } ($letters) x 6;