use Data::Dumper;

@tmp = shift;

print Dumper @tmp;

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