@a = ('a'..'c');
@foo{@a} = reverse (1..@a);
@foo{values %foo} = keys %foo;