[ create a new paste ] login | about

Link: http://codepad.org/vDVAxJcp    [ raw code | fork ]

Perl, pasted on Jun 20:
1
2
3
4
5
6
my %fruit_color = ("apple", "red", "banana", "yellow");
my @fruits = keys %fruit_colors;
my @colors = values %fruit_colors;

print @fruits;
print @colors;


Output:
No errors or program output.


Create a new paste based on this one


Comments: