my ($val) = ($_ =~ /\b$key\t(\d+)\b/);