my $c;
my $x = '';
while ( ( $c = ReadKey 0 ) =~ m/^[0-9]$/ ) {
    $x .= $c;
}
my $y = '';
while ( ( $c = ReadKey 0 ) =~ m/^[0-9]$/ ) {
    $y .= $c;
}
my $z = '';
while ( ( $c = ReadKey 0 ) =~ m/^[0-9]$/ ) {
    $z .= $c;
}