Select Code to Download

#!/usr/bin/perl --
use strict;
use warnings;
...
    -choices, \@choices,
)->pack; 
$db->Show;

my @choices = ( '', 1 , 2, 3 );
$init = $choices[0];