Oops, sorry. We were talking about names, not numbers. So how about this

   $seen=0;
   for $i (@list) { last if $i eq $pos; $seen++ }
   print substr("|||||*     ", 5-$seen, 5), "  $pos\n";