#!/usr/bin/perl -w

use strict;
my @list = ('1','val','2','val2','1','val3');

while((my $first, my $last) = splice(@list,0,2)) {
	print "$first -> $last \n";
}