my $op = "numbers"; # for example
 
my @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" );

print "@xxx\n";