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