while(@names) {
    my ($i, $j, $k)  = splice (@names, 0, 3);
    printf('$i is %s, $j is %s, $k is %s', $i, $j, $k);
    print "\n";
}