use strict;
use warnings;
use MyClass;

for my $colour (qw /green yellow/) {
    my $obj = MyClass->new;
    $obj->colour($colour) unless $obj->colour;
    print $obj->colour, "\n";
}

__END__