for my $k (keys %$init_hash) { $new_cmd->{$k} = $init_hash->{$k}; }

##</code><code>##

my %new_cmd = %$init_hash;

##</code><code>##

sub ops_new_cmd {
	my ($init_hash) = @_;
	
	my %new_cmd;
	# -OR-
	#my %new_cmd = %$init_hash;
	
	lock_keys(%new_cmd, qw/name user host command/);
	my @keyset = keys %$init_hash;
	
	#for my $k (@keyset) { $new_cmd{$k} = $init_hash->{$k}; }
	# -OR-
	#$new_cmd{$_} = $init_hash->{$_} for @keyset;
	# -OR-
	%new_cmd = map { $_=>$init_hash->{$_} } @keyset;
	# -OR-
	#use 5.020; # For Key/Value Slices
	#%new_cmd = %$init_hash{ @keyset };
	# -OR-
	#use experimental 'postderef'; # For Postfix Deref + Key/Value Slices
	#%new_cmd = $init_hash->%{ @keyset };
	
	return \%new_cmd
}