Select Code to Download

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

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

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