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