#!/usr/bin/perl
use Modern::Perl;

open my $fa, '<', 'file1.txt' or die $!;
open my $fb, '<', 'file2.txt' or die $!;

while(<$fa>){
        chomp;
        print "$_,", scalar <$fb>;
}