#!/usr/bin/perl

@AoA = (
	["fred", "barney"],
	["markus", "georg"],
	["petra", "julia"]
);

$ref_to_AoA = [
	["fred", "barney"],
	["markus", "georg"],
	["petra", "julia"]
];

print $AoA[2][1] . "\n";	# ausgabe von 2,1
print $ref_to_AoA->[1][1]."\n";	# referenzen
print $ref_to_AoA->[1][-2]."\n";# neg. ind von rechts