Select Code to Download

use strict;
use warnings;
...
                              -values  => [@S_NAMES],
                              -size    => 5,
                              -default => $S_NAMES[0]));