...
my(@zahlen) = split(/\s+/, &#36_);
    &#36records[&#36zahlen[0]] = { &#36spalte2 => &#36zahlen[1], &#36spalte3 => &#36zahlen[2], &#36spalte4 => &#36zahlen[3]  };