my $seen = 0;
$index = grep { $seen |= ($_ eq $pos); ! $seen;  } @list;

foreach $i (@list) {
  print( ("*"," ","|")[ 0 <=> $index-- ], " $i\n");
};