Actually, in perl it's pretty similar:

@array = ( 1, 2, 3, 4 );
%hash = ( red=>1, blue=>2, green=>3, yellow=>4 );

print join(" | ", reverse @array);
print join(" | ", keys %hash);
[download]