my @name = map {
    (glob "$path/$_")[0]
} qw/*B1006*.Z *B1106-*.Z *B11062*.Z/;

my @stamp = map { scalar localtime( (stat)[9]) } @name;