for (@activity) {
    print SAVE "[Button]\n";
    my $item;
    print SAVE "$prop=" . $_->$prop() for $_->properties;
}

##</code><code>##

sub properties { qw(legend time elapsed) }