Select Code to Download

my $key;

  ...

<select name="$key" size="15" multiple="multiple">

my $name = "multi";  # Renamed from $key to be less confusing

...
        print qq{<option value="$key">$key ($val)</option><br />};
    }
}

#!/usr/bin/perl

...
die sprintf "Users selected:  %s\n", Dumper(\@users);

*** bambam (106) ****
    barney (102)
...
    fred (101)
*** pebbles (105) ***
    wilma (103)

Software error:

...
          'betty',
          'wilma'
        ];