#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use Data::Dumper;
 
my @biwords = ();

sub read_biwords {
    my $file = shift or die "Need to get CSV file on the command line\n";
    my $setrank = shift ;
    open my $fh, "<", $file or die "$file: $!";
    while ( my $row = <$fh> ) {

        chomp $row;
        my @row = split ',', $row;

        my $rank;
        if ($setrank) {
            $rank = $setrank;
        } else {
            $rank = shift @row;
        }
        
        my $l = shift @row;
        my $r = shift @row;

        push @biwords, {
            rank => $rank,
            l => $l,
            r => $r
        } if $l && $r;

    }
    close $fh;
}

read_biwords( shift @ARGV );
read_biwords( shift @ARGV );

#print Dumper( \@biwords );

for my $bw (@biwords){

    my $r = $bw->{'r'};
    my $l = $bw->{'l'};
    my $rank = $bw->{'rank'};

    print "$l,$r\n";
}