foreach my $zipfile (@files) {
    my $day = undef;
    $zipfile  =~ m/AFILE_(\d+)/;
    $zipfile  =~ m/BFILE_(\d+)/;
    $day = $1;
}