#!/usr/bin/env perl

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

sub choose {
    say "choose a number:
1
2
3
4
5
"}

choose();
my $x = <STDIN>;
say $x;
if ($x<1 or $x>5) {
   say"You have chosen the wrong number";
   choose();
   $x = <STDIN>;
}

##</code><code>##

if ($x<1 or $x>5) THEN GOTO 10