Select Code to Download

use strict;
use warnings;
...
push @{ $hash{ $K[ ++$i&4 ? 3-$i%4 : $i%4 ] } }, $_ for @V;

print Dumper \%hash;

push @{ $hash{ $K[ int 3.5*abs sin (0.19634954085+0.39269908170*++$i) 
+] } }, $_ for @V;