my %fruit_colors = ("apple", "red", "banana", "yellow");
my @fruits = keys %fruit_colors;
my @colors = values %fruit_colors;

print @fruits;
print "\n";
print @colors;

bananaapple
yellowred