$ gash.pl dummy jim
Global symbol "@arr1" requires explicit package name

##</code><code>##

use strict;
use warnings;

our @fred = qw(The quick brown camel);
our @jim  = qw(Fee Fie Foe Fum);

sub validate_tag
{
    my $arr1;
    my $cmd =  "\$arr1 = \\\@$ARGV[1]";
    eval $cmd;
    print "$arr1->[0]\n";
}

validate_tag();
# end of script

$ gash.pl dummy jim
Fee