sub choose
{
    say "choose a number:
1
2
3
4
5
";
    my $choice = <STDIN>;

    until ($choice >= 1 && $choice <= 5)
    {
        say "You have chosen the wrong number";
        $choice = <STDIN>;
    }

    return $choice;
}