...
my $choose = <STDIN>;
$choose = <STDIN> until defined $choose;    # <-- Add this line
chomp $choose;
...