use warnings;
use strict;

my $hoa = {
    keyone => ["green","apple"],
    keytwo => ["purple","plum"]
};

my $p;
for (sort keys %$hoa) {
    $p = $hoa->{$_};
    print join ' ', @$p; print "\n";
}

##</code><code>##

    print join ' ', @$p[0], @$p[1]; print "\n";

##</code><code>##

    print join ' ', $p->[0], $p->[1]; print "\n";

##</code><code>##

for (sort keys %$hoa) {
    print join ' ', @{$hoa->{$_}}; print "\n";
}