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