I would love to see the output when you run this program first.

use strict;
use warnings;

open my $fh, '<', 'kegg_pathway_title.txt' or die $!;
while (<$fh>) { print $.,' ',$_ if /\t/;}
[download]