use Data::Dumper;

# assemble you data structure
$structure = {
    1 => { 1 => [1,2,3], 2 => [2,4,6] },
    2 => { 1 => [2,4,6], 2 => [4,8,12] }
             };

print Dumper($structure);

my ( $one, $two, $three) = @{$structure->{'1'}->{'1'}};
print "$one, $two, $three\n";
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print