A hash stores a key and a value so it doesn't make sense to assign an odd number of elements to a hash. Perhaps your code should look like:

my %eslist = ($record[3] => 1);
[download]

Okay, I need help! :) Here is my code so far. What I want to do is send all the unique values in %eslist to a text file. eslist has numbers in it ranging from 1 to 5 digits. I've tried variations on getting eslist into a uniqe file but none of them work so I'm not including them here because I think they are completely wrong and just confusing me. Thanks for any help or direction you can give me.


use strict;
use warnings;

my %eslist;

open(inFile, "< C:\\input.txt")
  || die "Unable to open file - $!\n";

open( OUTFILE, "> C:\\output.txt" )
  || die "Unable to open write file! - $!\n";

while(<inFile>) {
    my @record = split /\|/, $_;
    my $tn     = $record[0];
    my $err    = $record[1];
    my $ent    = $record[2];
    %eslist    = ($record[3] => 1);
    my $coid   = $record[4];

    
}
close inFile;
close OUTFILE;
[download]

First lets get the general advice out of the way:

• using strictures (use strict; use warnings;) - very good
• not using three parameter open - bad
• not using lexical file handles (see example code below) - bad
• checking open - very good
• not providing sample data - vary bad
• not providing sample output- vary bad
• providing sample code - excellent

The following may be what you are looking for. If not, it's at least a good starting point for reframing your question:

use strict;
use warnings;

my $sampleData = <<EOF_DATA;
17|5|176|1288|1387
163|1|523|30|6
2592|2|9|1288|6174
152|1|170|1845|473
3|13|50|30|1766
EOF_DATA

my %esList;

open my $inFile, '<', \$sampleData or die "Unable to open file - $!\n"
+;

while (defined (my $line = <$inFile>)) {
    my ($tn, $err, $ent, $es, $coid) = split /\|/, $line;

    $esList{$es} = $line if ! exists $esList{$es};
}
close $inFile;

print $esList{$_} for sort {$a <=> $b} keys %esList;
[download]

Prints:

163|1|523|30|6
17|5|176|1288|1387
152|1|170|1845|473
[download]

---

True laziness is hard work

     my %eslist = $record[3];
[download]

(W) You specified an odd number of elements to initialize a hash, 
which is odd, because hashes come in key/value pairs.
[download]

Give perldata a quick read.

record[3] is a bunch of numbers. I'm trying to find all unique entries. From what I've read a hash is the best way to do this, but I'm having trouble understanding how to assign a key to the record[3] value. Is a key like a primary key in a database? Where it is essentially a arbitrary unique number used to refer to the entry?

use List::MoreUtils qw(any);  #instead of using: 
                              #     "if (grep( m/whatever/, @list)){}"
                              #use: "if (any { m/whatever/} @list){}" 
                              #this exits on the first occurrence.

if (!any {m/^\Q$record[3]\E$} @esList){ 
   #the \Q\E guarantees that the value held in the $record[3] 
   #is not interpreted as a regular expression

    push (@esList = $record[3]);
}
### @esList is now a unique list of the values you want...
[download]

my %esList = ();
$esList{$record[3]) = 1;

### then to recall all the found records:
foreach my $result {sort(keys(%esList))){
    print "found record: $result \n"; 
}
[download]