Select Code to Download

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

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

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