my @xxx = ();

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