my @pizza = ($p1 = "Pizza One", $p2 = "Pizza Two" );

my @food = (@pizza);

$test = ${$food[$pizza[$p1]]};

# You wrote
my @pizza = ($p1 = "Pizza One", $p2 = "Pizza Two" );

# Try a hash
my %pizzas = (p1 => "Pizza One", p2 => "Pizza Two");

# An array
my @pizzas = ("Pizza One", "Pizza Two");

# You wrote
my @food = (@pizza);

# What you probably meant
my $food = @pizza;

# You wrote
$test = ${$food[$pizza[$p1]]};

$values = $databases->{Foo}{Bar}{Baz};

$tables  = $databases->{Foo};
$columns = $tables->{Bar};
$values  = $columns->{Baz};

#!/usr/bin/perl

use strict;
use warnings;

my @dbs;
while (<DATA>) {
    chomp;
    if (/^Database/) {
        push @dbs, [];
        next;
    }
    my @table = split /s*|s*/;
    push @{$dbs[-1]}, [ @table[1 .. $#table] ];
}

print "datbase 1, table 2, column 1: $dbs[0][1][0]n";

for my $db (0 .. $#dbs) {
    for my $table (0 .. $#{$dbs[$db]}) {
        for my $col (0 .. $#{$dbs[$db][$table]}) {
            print "($db,  $table, $col) is $dbs[$db][$table][$col]n";
        }
    }
}


__DATA__
Database One
Table One (D1T1) | D1T1C1 | D1T1C2 | D1T1C3 | D1T1C4
Table Two (D1T2) | D1T2C1 | D1T2C2 | D1T2C3

Database Two
Table One (D2T1)   | D2T1C1 | D2T1C2 | D2T1C3
Table Two (D2T2)   | D2T2C1 | D2T2C2 | D2T2C3
Table Three (D2T2) | D2T3C1 | D2T3C2 | D2T3C3