say join ' ', $k, $parsed{$k}->{x1} || 0, $parsed{$k}->{c3} || 0;