my @daten = (
  ['hosen','jeans','modern'],
  ['hosen','shorts'],
  ['roecke','mini']
);

# soll umgewandelt werden in einen Hash (praktisch ein Hierarchiebaum)

my %hier = (
  hosen => {
    jeans => {
       modern => 1
    },
    shorts => 1,
  },
  roecke => {
    mini => 1
  },
  ...

);