Select Code to Download

@a = ("a", 1, "b", 2, "c", 3);
$i = 0;
...
# )

print $foo{"c"}, "\n";  # 1

@foo{@a} = reverse @a;