if ( &check_for_valid_conf($config_file) ) {

    my (@class, @rules) = &parse_conf($config_file);
    print "class has $#class elements and rules has $#rules elements\n";
    print join("\n",@class),"\n";
}

sub parse_conf {
    ...
    return(@class,@ind_rules);
}


##</code><code>##

my ($arr1, $arr2) = \&sub(arg);
print join("\n",@$arr1);
print join("\n",@$arr2);

sub sub {
    @arr1 = qw(foo bar quux);
    @arr2 = (1,2,3);

    return(\@arr1,\@arr2);
}

perl -Mstrict -e '
my ($arr1, $arr2) = \&sub("arg");
print join("\n",@$arr1);
print join("\n",@$arr2);

sub sub {
    my @arr1 = qw(foo bar quux);
    my @arr2 = (1,2,3);

    return(\@arr1,\@arr2);
}'
Not an ARRAY reference at -e line 3.

perl -Mstrict -e '
my (@arr1, @arr2) = &sub("arg");
print join("\n",@arr1);
print join("\n",@arr2);

sub sub {
    my @arr1 = qw(foo bar quux);
    my @arr2 = (1,2,3);

    return(\@arr1,\@arr2);
}'
ARRAY(0x10f07c)
ARRAY(0x10f0c4)

perl -Mstrict -e '
my (@arr1, @arr2) = &sub("arg");
print join("\n",@{$arr1}),"\n\n";
print join("\n",@{$arr2}),"\n";

sub sub {
    my @arr1 = qw(foo bar quux);
    my @arr2 = (1,2,3);

    return(\@arr1,\@arr2);
}'
Global symbol "$arr1" requires explicit package name at -e line 3.
Global symbol "$arr2" requires explicit package name at -e line 4.
Execution of -e aborted due to compilation errors.

perl -Mstrict -e '
my (@arr1, @arr2) = &sub("arg");
print join("\n",@arr1),"\n\n";
print join("\n",@arr2),"\n";

sub sub {
    my $arr1 = \qw(foo bar quux);
    my $arr2 = \(1,2,3);

    return($arr1,$arr2);
}'
SCALAR(0x10f0d0)
SCALAR(0x10f100)


perl -Mstrict -e '
my ($arr1, $arr2) = &sub("arg");
print join("\n",@$arr1),"\n\n";
print join("\n",@$arr2),"\n";

sub sub {
    my $arr1 = \qw(foo bar quux);
    my $arr2 = \(1,2,3);

    return($arr1,$arr2);
}'
Not an ARRAY reference at -e line 3.


perl -Mstrict -e '
print &sub("arg"),"\n";
 
sub sub {                    
    my $arr1 = \qw(foo bar quux);
    my $arr2 = \(1,2,3);
                        
    return($arr1,$arr2);
}'
SCALAR(0x1061d8)SCALAR(0x10613c)


perl -Mstrict -e '
print @{&sub("arg")},"\n";

sub sub {
    my $arr1 = \qw(foo bar quux);
    my $arr2 = \(1,2,3);

    return($arr1,$arr2);
}'
Not an ARRAY reference at -e line 2.


perl -Mstrict -e '
print ${&sub("arg")},"\n";

sub sub {
    my $arr1 = \qw(foo bar quux);
    my $arr2 = \(1,2,3);

    return($arr1,$arr2);
}'
3

OOH, getting closer! :)


perl -Mstrict -e '
print @{&sub("arg")},"\n";

sub sub {
    my @arr1 = qw(foo bar quux);
    my @arr2 = (1,2,3);

    return(\@arr1,\@arr2);
}'
123


GETTING CLOSER YET! :)


perl -Mstrict -e '
my (@arr1,@arr2) = @{&sub("arg")};
print join(", ",@arr1),"\n\n";print join(", ",@arr2),"\n";
sub sub {
    my @arr1 = qw(foo bar quux);
    my @arr2 = (1,2,3);

    return(\@arr1,\@arr2);
}'
1, 2, 3