my $rightcut = $righttemp[3] . ", " . $righttemp[4] . ", " . $righttemp[5];