[ create a new paste ] login | about

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

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

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


Output:
1
2
bananaapple
yellowred


Create a new paste based on this one


Comments: