open ( UNFILE, "<", "$file" ) || print ( "Cannot open file $file\n" );

while ( $line = <UNFILE> )
{
        chomp ( $line );

        ( $temp_idx, $temp_str, $temp_desc, $temp_order ) = split ( /\.|\|/, $line );
                $item_index = int ( $temp_idx );
                if ( !defined ($item_desc{$item_index}) )
                {
                        if ( $item_index == 1 )
                        {
                                $item_desc{$item_idx} = "$tmp_index.$temp_str\n$temp_desc";  <== Error #1
                        }
                        else
                        {
                                $item_desc{$item_index} = "^L$temp_idx.$temp_str\n$temp_desc";  <== Error #2
                        }

                        $item_order{$item_index} = $temp_order;  <== Error #3