#######
for $x (0..$avarege->getLength-1) {
................
my($res_month, $res_day, $res_year);
foreach my $key ($effectivedate[$x]) {
chomp $key;
($res_month, $res_day, $res_year) = split/\//, $key;
my @results = $key;
print $#results;
   print "@results - <b>data found in $res_month * $res_day * $res_year</b>";
   if($res_month >= $res_month){print "^^ $res_month ^^";}
}


.....}
#######