Select Code to Download

my $limit = $array[0][0];
for(my $i = 1; $i <= $#array; $i++)
...
     $limit = $chk if($chk lt $limit);
}
print "Smallest ID is $limit\n";

my $limit = $array[0];
for(my $i = 1; $i <= $#array; $i++)
...
           || ($chk->[0] eq $limit->[0] && $chk->[1] lt $limit->[1]));
}
print "Smallest is $limit->[1]\n";