using each to iterate over an array

use strict;
use warnings;

my @array = (50..59);

while(my ($f, $g) = (splice @array, 0, 2)) {
    print "f $f, g $g\n";
}