Help for this page

Select Code to Download

Select or download this

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

Select or download this

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