Store Related Values Together

     if (( $line =~ /$opt_d/i) && ( $line !~ /_ o r/)) 
        {
        ($Fld1,$Fld2,$Fld3,$Fld4,$Fld5,$Fld6,$Fld7,$Fld8,$Fld9,$Fld10,
         $Fld12,$Fld13,$Fld14,$Fld15) = split(' ',$line);
         $uplist[$i] = join ' ',$Fld6, $Fld8, $Fld9, $Fld14, $Fld15;
         $time[$i]=$Fld6; $size[$i]=$Fld8; $file[$i]=$Fld9; 
         $user[$i]=$group[$i]=$Fld15;
         $username= join '@', $user[$i], $group[$i];
         push @{$table{$username}}, $uplist[$i];
         $i++;     
       }

Avoid Families of Variable Names

     if (( $line =~ /$opt_d/i) && ( $line !~ /_ o r/)) 
        {
         @Fld = split(' ',$line);
         $uplist[$i] = join ' ', @Fld[5,7,8,12,14];
         $time[$i]=$Fld[5]; $size[$i]=$Fld[7]; $file[$i]=$Fld[8]; 
         $user[$i]=$group[$i]=$Fld[13];
         $username= join '@', $user[$i], $group[$i];
         push @{$table{$username}}, $uplist[$i];
         $i++;     
       }