Perl readchar stdin password ascii string as chars

#!/usr/bin/perl
use strict;
use warnings;
use Term::ReadKey;

# sudo apt-get install libterm-readkey-perl

my $key;
my $password;

print "Enter your password: ";

ReadMode(4); # Turn off controls keys

while( ord( $key = ReadKey(0)) != 10 )  # read keys until enter key
{

  # For all value of ord($key) see http://www.asciitable.com/
    if(ord($key) == 127 || ord($key) == 8)
    {
      # DEL/Backspace was pressed , Remove the last char from the password
      chop($password);
      #2 move the cursor back by one, print a blank character, move the cursor back by one
      print "\b \b";
    }elsif( ord($key) < 32 )
    {   # Do nothing with these control characters
    }else
    {
      $password = $password.$key;
      print "*";
#      print "*(".ord($key).")";
    }
}
ReadMode(0); #Reset the terminal once we are done
print "\n\nYour super secret password is: $password\n";

my $char;
foreach $char( split //, $password )
{
  print ord($char) . "\n";
}