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