for my $data ( @{ $key_id_list{$key} } )
{
  print Dumper($data);

	for my $dat (@{$data})
	{
		print "----->".$dat."\n";
	}
}