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