my %silly_example;
for(\(@couple, @of, @arrays, @here)) {
    $silly_example{shift @$_}++;
    splice @$_, 7, 1;
    push @$_, shift @$_;
}