If you convert my answer to use short variable names and remove the ?: you get 44 relevant chars

#234567890#234567890#234567890#234567890#234567890#234567890
s/(\d+):(\d+)(,|$)/$h{$1}=$2;push(@a,$1)/ge;
[download]