Select Code to Download

my $i = 0;
foreach my $href ( @array ) 
...
if ( $i < scalar @array ) { #
   $array[$i]->{ 'isnext' } = 1;
}

my ($y, $m, $d) = ( $date =~ /(\d{4})-(\d{2})-(\d{2})/ );
$date_num = $y*10000 + $m*100 + $d;