#!/usr/bin/perl
use strict;
use warnings;
use feature qw(say);

while (<>) {
    chomp;
    say $. . "\t" . $_;
}

__END__

$ perl test.pl test_1.txt
1	Line 1
2	Line 2
3	Line 3