He's not repeating things, he has another array matched with the @vname one, @email. Of course he'd be better off with either a better data structure (like a list of lists) or using this:

for (my $j=0; $j<@vname; $j++) {
  #stuff here
}
[download]

Worse, he likely needs to take the double quotes out of his regex too, as others pointed out...

--
$you = new YOU;
honk() if $you->love(perl)