my $base_dir = 'C:\Test\Calls\';
my @directories = $base_dir . $_ . '\' for qw /History Archive/;
my @files;
for my $dir (@directories) {
     push @files, $_ for glob ($curr_dir . "*.wma"), glob ($curr_dir . "*.wmv");
}