use Data::Dumper;

@tmp = shift;

print Dumper @tmp;

foreach my $p (@tmp) {
        foreach (keys %{$p}) {
                print "$p->{$_}\n";
        }
}