if (defined $opt{w}) {
    my @data;
    open(my $fh, '<', $opt{w}) or die "Unable to open '$opt{w}' for reading: $!";
    while (<$fh>) {
        chomp;
        next if length($_) < 3 || /[^a-zA-Z]/;
        $_ = lc($_);
        my $code = join('', 'push @{$data', (map { $_-=97; "[$_]"} sort{$a<=>$b} unpack 'C*', $_), "}, '$_';");
        eval $code;
    }
    store(\@data, $opt{d}) or die "Can't store '%data' in '$opt{d}'\n";
}