Select Code to Download

my (@list, %find);
@list = qw/a t g c/;
...
@find{@list} = map {reverse @list[$_*2, $_*2+1] } 0..@list/2-1;

print "$_: $find{$_}\n" for @list;

a: t
t: a
g: c
c: g