my $hint = '1234';
my @wild = ('a'..'z','0'..'9');
my $wild = '{'. join(',',@wild).'}';
my @pw = (<$hint$wild$wild>,
          <$wild$hint$wild>,
          <$wild$wild$hint>);