my $n = scalar @f;

for (0..$n){
    if ($wf[$_] and $wf[$_] ne $f[$_]){
        print "$wf[$_]";
    }
}