my %h;
@h{keys %$_} = values %$_ for @data;