for my $z (0..7)
		{
			$string = $string . ${@$ref[$z]}[$y];
		}