perl -lpe '$s{$_}++; s/;$/_$s{$_};/' foo.txt