Assuming you have a hash ('%usernames') of the usernames already taken:

my $username;
foreach (@usernames) {
    if (!exists $usernames{$_}) {
        $username = $_;
        last;
    }
}
[download]

After which, '$username' will either contain the first unused username from '@usernames', or be undefined, if none were available.