foreach (values %in)
{
    /(.*?)\|(.*)/;
    $out{$2}{$1} = 1;
}

##</code><code>##

foreach (values %out)
{
    $_ = [sort keys %$_];
}
# $out{"RED DOOR|10-14"}[0] = 73 etc