DB<109> $txt='id003;30;80;10'
 
  DB<110> local $.=0; @sort = sort {$a->[0] <=> $b->[0]} map { [$_ => $.++] } split /;/, $txt 
 
  DB<111> print $sort[-1]->[1]
2