map {chomp $_->[2]; $data{$_->[0]}{$_->[1]}{$_->[2]} = ''} [split /\s+/]
    for <DATA>;


##</code><code>##

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


##</code><code>##

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