print"Enter the starting amount: ";
while( $startAmount !~ /^\d+/ ) {
    $startAmount = <STDIN>;
    chomp( $startAmount );
    if ( $startAmount !~ /^\d+$/ ) {
        print"Numbers only! Try again: ";
    } else {
        last;
    }
}

##</code><code>##

print"Enter the starting amount: ";
{
    chomp( $startAmount = <STDIN> );
    unless ( $startAmount =~ /^\d+$/ ) {
        print"Numbers only! Try again: ";
        redo;
    }
    # this line is reached if $startAmount is a number
    print "ok, \$startAmount is $startAmount\n";
}