my @list = ("foo", "bar", "baz", "toto", "tata");
$pos = "baz";
foreach $i (@list) {
  print( ("*"," ","|")[ $i cmp $pos ], " $i\n") if $print;
};