use strict;
use warnings;

my %indices;

open my $primary, '<', 'filename.txt' or die $!
while ( my $line = <$primary> ) {
    my $key = ( split /,/, $line )[0];
#   The following line is wrong.
#   $indices{$line} = 0;
#   Here's the correct line...
    $indices{$key} = 0;
}

close $primary;

open my $secondary, '<', 'filename2.txt' or die $!;
while ( my $line = <$secondary> ) {
    my $key = ( split /,/, $line )[0];
    if( exists $indices{$key} ) {
        $indices{$key}++;
    }
}
close $secondary;

foreach( keys %indices ) {
    if( $indices{$_} > 0 ) {
        print "$_ from the first file was found ",
              $indices{$_},
              " times in the second file.\n";
    }
}