sub bar {
  return map({join(q[::], @$_[0 .. $#$_ - 1]), $$_[$#$_];} [split(/::/, shift)]); 
}