#!/usr/local/bin/perl -w
# cmplx-print0.pl -- Versuch, komplexe Datenstrukturen anzuzeigen

use strict 'refs';

$listp = [ { one  => 1,   two  => 2,   three => 3 },
           { eins => 1,   zwei  => 2,  drei  => 3 },
           { uno  => 'I', due => 'II', tre   => 'III' } ];

print $listp, "\n";

print join("\n", @{$listp}), "\n";