$two = 'test';
@three = ('test');

my @array = ('one', 'two', 'three');

foreach (@array) {

    if (@$_) {
        print "Array exists: $_\n";
    }
    if ($$_) {
        print "Scalar exists: $_\n";
    }
}

##</code><code>##

my @fruit = ();
my @meat = ();
my @dairy = ();

open (FOOD, "./food.txt")

while (<FOOD>) {
    chomp;
    ($category, $item) = split(/\$/, $_);
    push(@{$category}, $item) if (@{$category});
}