open(TEST,"<$sigDataFile") || die("This file will not open!");
    my $sigData = <TEST>;
    my @records = ();
    @records = <TEST>;
    close(TEST);
    my @keys;
    my @values;

    foreach my $rec(@records) {
    my ($key,$value)=split(/\=/,$rec);
    push @keys,$key;
    print @keys;
    push @values,$value;
   print @ values
    }