foreach (@coins) {
    next if not $_->{counter};
    my $name = (1==$_->{counter})?
               $_->{name} :
               ($_->{plural} || $_->{name}.'s');
    print $_->{counter}, " ", $name, "\n";
}