Select Code to Download

my @leftCon;
my @rightCon;
...
    # remove leading space char
    $rightCon[$y] =~ s/\s+//g;
}

for ( my $x = 0; $x < $numFrom; $x++) {

...

print @fromConv;
print @toConv;