#!/usr/local/bin/perl

use strict;
use warnings;
no strict "subs";
no strict "refs";


my $line = 'fields:  name addr zip state city';
my $var_city;
print "$line\n";
$line =~ s/[-)(]//g;
my @columnNames = split(/\s+/, substr($line,9));
print @columnNames;
print "\n\n";
my $acount = 0;
foreach my $name (@columnNames) {
        $acount++;
        print "name is: $name\n";
        ${var_."$name"} = $acount; 
        #print "nname is: ${"$name"}\n"
}
print "this should display 5: $var_city\n";

##</code><code>##

fields:  name addr zip state city
nameaddrzipstatecity

name is: name
name is: addr
name is: zip
name is: state
name is: city
Use of uninitialized value $var_city in concatenation (.) or string at G:\Projects\WebLogReporting\VarValAsVarName.pl line 28.
this should display 5: