http://www.perlmonks.org?node_id=322641


in reply to declaring same variable

Just declare my @xxx once.

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";
results in: one two three

A.A.