#!/usr/bin/perl -w
use strict;
my ( @Category, @Cat1, @Cat2, @Cat3, $Sub_Category, $Value );

@Cat1 = qw( a b c );
@Cat2 = qw( 1 2 3 );
@Cat3 = qw( x y z );

@Category = qw( Cat1 Cat2 Cat3 );

foreach $Sub_Category (@Category) {
  print "$Sub_Category\n";

  foreach $Value (@$Sub_Category) { # I'm trying to make Perl see @Cat1 but, Larry gives me the following error: "Can't use string ("Cat1" as an ARRAY ref while "strict refs" in use"
    print "$Value\n";
  }
}

__END__