my $i=0;
push(@{$out->{$in->[$i++]}},$in->[$i++]) while $i<$#$in;