#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use feature 'say';

sub choose {
    say "choose a number:";
    say for 1..5;
}
my $response;
while(1){
    choose();
    chomp($response = <>);
    last if $response >= 1 && $response <= 5;
    say "You have chosen the wrong number";
}