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";
}