Select Code to Download

$two = 'test';
@three = ('test');
...
        print "Scalar exists: $_\n";
    }
}

my @fruit = ();
my @meat = ();
...
    ($category, $item) = split(/\$/, $_);
    push(@{$category}, $item) if (@{$category});
}