local @ARGV = ('file1.txt');
local $^I = '.bak';
while (<>) {
  m/^(\w+)\s+(\d+)$/;
  printf "$1\t%d\n", not exists $fed{$1} ? $2+1 : 0;
}