sub foo
{
    my $user = shift;
    print "$user\n";
}

for my $user_id ('a'..'z')
{
    foo("user-$user_id");
}