while($count < 2) {
    print $count;
    $directory = 'C:\Test\Calls\Archive' if $count eq 0;
    $directory = 'C:\Test\Calls\History' if $count eq 1;
    @files = File::Find::Rule->file()
                                      ->name( "*.wma", "*.wmv" )                          
                                ->in( $directory );
    $count++;
}

##</code><code>##

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");
}

##</code><code>##

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);
     }
}