in reply to Deleting a word in a file!

The following usages of a hash look strange: 
        my %sfi = <FILE>;

                foreach my $sfi (%sfi) {

[download]

Do you really want an array?

In Section Seekers of Perl Wisdom