#!/usr/bin/perl -w

use strict;
use Data::Dumper;
my %hash;
%hash = map { chomp; $_ => '1' } split /(\s+|\W+)/, <>;

print Dumper(%hash);

dbmathis@bamboo [~/mbt_index]# cat new_ib1.txt | head -100 | ./validation_poc.pl | head -20
$VAR1 = '';
$VAR2 = '1';
$VAR3 = '-';
$VAR4 = '1';
$VAR5 = 'LOW';
$VAR6 = '1';
$VAR7 = ' ';
$VAR8 = '1';
$VAR9 = 'PDF';
$VAR10 = '1';
$VAR11 = 'RES';
$VAR12 = '1';