Golf?! Did you say "golf"? How about unnecessarily obsfuscating it?

sub o { 
#          1         2         3         4         5         6 
# 12345678901234567890123456789012345678901234567890123456789012345678
+ 
  split/[,:]/,pop;$hash{$_[$_]}=$_[$_+$#_/2+1]for 0..$#_/2;%hash; 
}
[download]