Select Code to Download

my %user_passwds = (
   joe  => ...,
   jeff => ...,
   john => ...,
);

my %user = (
   id       => 'joe',
...
   passwd   => ...,
   home_dir => ...,
);

my %unique;
++$unique{$_} foreach @list;
@list = keys %unique;