for my $items( @{$p} ){
    print $item->{account} . "\n";
    print $item->{ZIP} . "\n";
    print $item->{CITY} . "\n";
    print $item->{order} . "\n";
    print $item->{suggested} . "\n";
    print $item->{cd} . "\n";
};