my $playername;

until ($playername) {
    print "What is your player's name?: ";
    chomp($playername = <STDIN>);
}