while (length($key) < 4) {
    print "Please Enter Your Desired Key (5 or more characters) \n --> :";
    $key=<>;
}