my @xxx;
@xxx = qw(one two three) if $op eq 'numbers';
@xxx = qw(four five) if $op eq 'alpha';
@xxx = qw(six ten) if $op eq 'alp';