#!/usr/bin/perl
use strict;
use warnings;
use feature qw/ say /;
use Data::Dumper;

my @values = ('inbox', 'yes', 'NZ');
my %data;
$data{ $_ } = shift @values for qw/ mailbox subscribe country /;
say Dumper \%data;

__END__