#!/usr/bin/env perl

use strict;
use warnings;

my @array = (1,4,5,6,7,9,10,23,34,44,55,56,57,59,70,80,90,100);

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

my $itr=0;
foreach my $number (@array){
  $itr++ and next if $find >= $number;
}
print $array[$itr-1]