# split and sort
art => push @{$data{a}{r}{t}{words}}, 'art';
rat => push @{$data{a}{r}{t}{words}}, 'rat';
tar => push @{$data{a}{r}{t}{words}}, 'tar';