my @arr = qw/1 2 3 4 5 6 7 8/;
while(my ($x,$y) = splice @arr,0,2) {
  say "$x => $y";
}