#!/usr/bin/perl

use strict;
use Data::Dumper;

open ( FH ,'<' , 'D:\\myperlpgm\\nperl\\newfile.txt');

my %has;
my @array;

while(<FH>){
@array = split /"/;
}


print "@array\n";

for(@array){
$has{$_} = $_ ;
}

print  Dumper ($has{ssss});