Select Code to Download

my $op = "numbers"; # for example
...
@xxx = qw(six ten) if ( $op eq "alp" );

print "@xxx\n";