UNIX for Advanced & Expert Users

!perl -p
my $counter;
BEGIN { $counter = q{A}; }
print $counter++;

open(MY,"txt.1");


for( (A..J) )
{
            my $Line = <MY>;
        print "$_ ";
                print $Line;
                print "\n";

}

open (MY,"inputfile");

my $ind='A';
while( $ind)
{
            my $Line=<MY>;
            last unless $Line;
            print "$ind ";
            print $Line if($Line);
            $ind++;
}