use 5.014;
use strict;
use Test::More tests => 2;

use Var::Pairs;


my @data = 'a'..'f';
for my $next (pairs @data) {
    $next->value = uc $next->value;
}
is_deeply \@data, ['A'..'F']  => 'Lvalue array ->value';


my %data;
@data{1..6} = ('a'..'f');
for my $next (pairs %data) {
    $next->value .= 'z';
}
is_deeply [sort values %data], [qw(az bz cz dz ez fz)]  => 'Lvalue hash ->value';