use List::Util qw(max);
my @users = grep /\S/, <DATA>;
my $max = max /^(\d+)/, @users;
++$max;
print @users, "$max|Rudif|scribe\n";