if($i % $Nk == 0){
			my $temp1 = rotWord(\@temp);
			my @temp1 = @$temp1;
			#print Dumper([@temp1]) . "\n";
			my $temp2 = subWord(\@temp1);
			@temp = @$temp2;
			#print Dumper([@temp]) . "\n";
			for (my $t=0; $t<4; $t++){
				$temp[$t] ^= $rCon[$i/$Nk][$t];#whats wrong? #Use of uninitialized value in bitwise xor (^) at aes.pl line 279.
				#print $temp[$t] . "\n";
			}
		}elsif($Nk > 6 && $i%$Nk == 4) {
			my $temp2 = subWord(\@temp);
			@temp = @$temp2;
		}
		for (my $t=0; $t<4; $t++){
			$w[$i][$t] = $w[$i-$Nk][$t] ^ $temp[$t];
		}