use List::MoreUtils qw( mesh );
my @users = qw( alice bob charlie );
my @ids   = qw( 123 456 789 );
my %id_of = mesh @users, @ids;
# now $id_of{ 'alice' } == 123