#!/usr/bin/perl
use Modern::Perl;


my $target = (int rand 100) + 1;
my $number = 99 ;

GUESS: foreach my $guess_num (1..$number) {
      say "($guess_num) Please enter a guess:";
      my $guess = <>;
      chomp $guess;


      unless ($guess =~ /^\d+$/) {
      say "This guess is out of range. Guess between 1 and 100!";
      redo GUESS;
      }

      if ($guess == $target) {
      say "Congrats, you guessed right!";
      last GUESS;
      }

      elsif ($guess < $target) {
      say "Your guess of $guess was too small.";
      say "your previous guesses:$guess,";
      }

      elsif ($guess > $target) {
      say "Your guess of $guess was too big.";
      }

      if ($guess_num == $number) {
      say "You have used all your guesses. Please try again.";
      last GUESS;
      }
      }