$PostCodeStrings{$fields[5]} .= 
        join( '|', @fields[4,5,3,2,1,0] ) . "\n";