use strict;
use warnings;

my @array = (1.1,1.4,5.33,6.1,7.23,7.133,10,11);

print "\nenter number\n";
chomp (my $cursorPosition = <STDIN>);

my $itr=0;
foreach my $tagBegin (@array){
  if (0 == $itr % 2) {
  }
  else{  
    last if $cursorPosition <= $tagBegin;
  }
  $itr++;
}
print "Range is $array[$itr-1] - $array[$itr]";