Select Code to Download

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

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

#!/usr/bin/perl -w
my @L = ();
...
--,2.400000e+1,6.680000e+0,--,--,--
--,2.400000e+1,6.640000e+0,--,--,--
--,3.200000e+1,6.720000e+0,--,--,--