Select Code to Download

#!/usr/bin/perl
use strict;
...
    @$dataRef[$k++] = $groupA->[$i++] while $i < @$groupA;
    @$dataRef[$k++] = $groupB->[$j++] while $j < @$groupB;
}