for ( $hash1{key1}, $hash1{key2}{key22}, $hash1{key2}{key23} ){
	
	$_ = File::Spec->file_name_is_absolute($_) ? $_ : File::Spec->rel2abs($_)
}