foreach $z ( %abc) { 
		push (@ab, $z});	
		$ab = join "\-",@ab;
		}