for ($start;$start <= $index_max; $start++)
        {
        @origin = (@origin, $content[$start]);
        shift (@origin); #Delete ORIGIN row;
        print @origin;
        for @origin
        {