my %names;
while (<>) {
        chomp;
        my @line = split /\|/;
        next unless defined $line[2];
        $names{$line[0]} = [@line[1,2]];
}

##</code><code>##

print "values for bill: $names{'bill'}->[0] , $names{'bill'}->[1]";

##</code><code>##

$names{'bill'}->[0] = 3;