@stu = (103_dsu 1 35 nbu103,104_dsu 1 35 nbu104,204_tape 1 1 ACS1,101_dsu 1 35 nbu101);

@dp = (nbu103 Disk 6 -1,nbu104 Disk 6 -1,nbu101 Disk 6 -1); 
 
	foreach $var (@stu) {
    		foreach $var2 (@dp) {
			@stu2 = split(' ',$var);
			$s1 = $stu2[3];
				@dp2 = split(' ',$var2); 	 
				$s2 = @dp2[0];
				if ($s1 eq $s2) { 
				splice (@stu2,3,1,$var2);
			}
		}
	}