#!/usr/bin/perl
use strict;
#
my $row;
.
.
for $row ($min..$max)
{
        if($data == $required)
        {
                last;
        }
}
print "Data presented in:: $row \n";