#!/usr/bin/perl/
use strict;
use warnings;

my $id   = "AC";
my $root = '/home/results/initial/';

for my $i (2..3){
  for my $k (1..3){
    my $path = $root.sprintf "%s%04d/F%05d",$id,$i,$k;
    print "$path\n";

    for (glob "$path/MV*"){
      print "$1\n" if /MV(\d{4})/;
    }
    
  }
}