# An inline function, that does not assume that $pos
# is in @list :
$seen = - $#list -1;
foreach $i (@list) {
  if ($i eq $pos) {$seen = 0} else { $seen++ };
  print( ("*"," ","|")[ $seen <=> 0 ], " $i\n");
};