#!/usr/bin/perl
use strict;
use warnings;

my $name = 'toto, tata, titi, tete, tutu';
my $value = '34, 35, 30, 40, 23';
my @n = split /, /,$name;
my @v = split /, /,$value;
for (my $z = 0; $z < scalar @n; $z ++) { print "$n[$z] $v[$z]\n" }