@a = ("a", 1, "b", 2, "c", 3);
$i = 0;
grep($foo{$_} = $a[$#a - $i++], @a);
print $foo{"c"}, "\n";