while (<>) {

        @intarray = split('\t');

        $key = $intarray[1].",".$intarray[0];
        $value = $intarray[2].",".$intarray[3];

        $datahash{$key} = $value;
        }