in reply to I just can't see the error in this code

You forgot: 
use strict;
use warnings;

[download]
As an aside, you also might be over-commenting, e.g. 
my %final;    # Hash %final

[download]

In Section Seekers of Perl Wisdom