$data{$_->[0]}{$_->[1]}{$_->[2]} = '' for map [split], <DATA>;