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


my $rightcut = "$righttemp[3], $righttemp[4], $righttemp[5]";
my $rightcut = join ',', @righttemp[3..5];
## perldoc perldata