my @keys = keys %{$w};
print @keys,"\n";