my (@registered_users, @personalized_users);
# .  .  .
# initialize variables 
# .  .  .
my @advanced_users = map {
       my $registered_user = $_;
       grep { /^$registered_user$/ } @personalized_users;
} @registered_users;