my $what;
for my $row ( $min .. $max ){
    if( $data == $required ){
        $what = $row;
        last;
    }
}
print "Data presented in:: $row \n";