$neighbors = {
   a => { 
     q => 1,
     w => 1,
     s => 1,
     z => 1,
   },
   s => {
     a => 1,
     w => 1,
     e => 1,
     d => 1,
     x => 1,
     z => 1,
   },
 
   etc.
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $neighbors = {
   a => {
     q => 1,
     w => 1,
     s => 1,
     z => 1,
   },
   s => {
     a => 1,
     w => 1,
     e => 1,
     d => 1,
     x => 1,
     z => 1,
   },
};


my $password = "asasas";
my $counter = 1;

my $lastchar = "";
for my $char (split(//, $password)) {
  print $char, "\n";
  $counter++ if $neighbors->{$lastchar}->{$char};
  $lastchar = $char;
  last if $counter == 3;
}

if ($counter == 3) {
  print "Invalid password";
  # make them enter a new password...
}