my ($k,$g,$a,$v,$f,$c) = split(/,/,$line); push(@{$href->{$v}},$a); sort(uniq(@{$href->{$v}})); #### my ($k,$g,$a,$v,$f,$c) = split(/,/,$line); my @temp_arr; if(defined($href->{$v})) { @temp_arr = @{$href->{$v}}; } push (@temp_arr,$a); @{$href->{$v}} = sort(uniq(@temp_arr));