(tied %data)->filter_fetch_key( sub { decode('utf8', $_); } );
print join(', ', keys %data), "\n";