Select Code to Download

my @users = qw( alice bob charlie );
my @ids   = qw( 123 456 789 );
...

use Data::Dumper;
print Dumper(\%id_of);

$VAR1 = {
          'alice' => '123',
          'charlie' => '789',
          'bob' => '456'
        };