my $sigDataFile = getValueFromPath($event ,"data/file"); 
open(TEST,"<$sigDataFile") || die("This file will not open!"); 
my @records = (); 
@records = <TEST>; 
chomp @records; 
close(TEST); 
my @keys; 
my @values; 
foreach my $rec(@records) { 
my ($key,$value)=split(/\=/,$rec); 
push @keys,$key; 
push @values,$value; 
}

 
my (@keys, @values); 
open(TEST,"<$sigDataFile") || die("This file will not open!"); 
while(<TEST>) { 
    my ($key,$value)=split /=/; 
    push @keys,$key; 
    push @values,$value; 
} 
close(TEST); 
  
print @keys; 
print @values;

#!/usr/bin/perl -w 
 
my $filename = '/tmp/text.txt'; 
 
open FH, "<$filename" or die ($!); 
 
while ( <FH> ) { 
    print; 
} 
 
close FH;

foreach my $key (@keys) { 
     my $length = length($values[$idx]); 
     foreach my $FakeFEObject (@FakeFEObjects) { 
        my $out = $FakeFEObject->putData($key, $length, $values[$idx]); 
        if ($out == 0) { 
          push @failedKeys, $key; 
        } 
      } 
     $idx++; 
    }

	 
foreach my $key (@keys) {  
     my $length = length($values[$idx]);  
     foreach my $FakeFEObject (@FakeFEObjects) {  
        my $out = $FakeFEObject->putData($key, $length, $values[$idx]);  
        if ($out == 0) {  
          push @failedKeys, $key;  
        }  
      }  
     $idx++;  
    }

open my $TEST,'<', $sigDataFile or die "'$sigDataFile' file will not open $!"; 
 
my @failedKeys; 
while( <$TEST> ) { 
    chomp; 
    my ($key,$value) = split /=/; 
    my $out = $FakeFEObject->putData($key, length($value), $value); 
 
    # you might want to use a hash or put the entire line into the array instead of just the key. 
    push @failedKeys, $key if $out == 0; 
}