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