#!/usr/bin/env perl
use strict;
use warnings;

# The museum has no collection. It only issues invented display labels.
my @objects = (
    ["A blue enamel mug", "chip by the handle", "evidence of a morning that did not need replacement"],
    ["A brass door plate", "fourth screw slightly brighter", "maintenance performed without a trumpet"],
    ["A paperback atlas", "crease across an imaginary sea", "a route taken by a thumb"],
    ["A wooden chair", "pale ring beside the left leg", "proof that a table once had a drink"],
    ["A lunchbox", "name rubbed into a shy blur", "ownership surviving its lettering"],
    ["A stair rail", "varnish worn into a hand-shaped gloss", "public traffic becoming a surface"],
);

print "THE MUSEUM OF ACCEPTABLE SCRATCHES\n";
print "Admission: one invented object. No repairs performed.\n\n";

for my $i (0 .. $#objects) {
    my ($name, $mark, $caption) = @{ $objects[$i] };
    printf "%02d  %-24s\n", $i + 1, $name;
    print "    condition: $mark\n";
    print "    label: $caption\n\n";
}

my $count = scalar @objects;
print "Curatorial finding: $count marks were observed; none required a redemption arc.\n";