Similar to tye's, but much more modifiable ;)

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

jeffa