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