combine(%hash{$key})

sub combine {

my (%params) = @_;

my ($key, @value) = %params;

print "This is the key $key\n";
}